ConvertWord сохраняет и закрывает документ

Function Save(ByVal targetPath)
	Save = False
	On Error Resume Next
	Me.Document.OptimizeForWord97 = Me.OptimizeForWord97
? Начало фрагмента A
	Me.Document.SaveAs targetPath, Me.SaveFormat, False, vbNullString, False
? Конец фрагмента A
	If Err.Number <> 0 Then
		Me.ErrorNumber = Err.Number: Me.ErrorInfo = Err.Description
		Me.Document.Close False
		Exit Function
	End If
? Начало фрагмента B
	Me.Document.Close False
? Конец фрагмента B
	Save = True
	On Error Goto 0
End Function