Сохранение документа Word из Excel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim objWrdApp As Object
Dim objWrdDoc As Object
Dim F$
Dim iPath$
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("A:A"), Target) Is Nothing Then
    On Error Resume Next
        If objWrdApp Is Nothing Then
            Set objWrdApp = CreateObject("Word.Application")
             Set objWrdDoc = objWrdApp.Documents.Open(App.Path & "\МФО.docm")
            objWrdApp.Visible = True
With objWrdDoc
    .Bookmarks("полноеимяорг").Range.Text = CStr(Cells(Selection.Rows.Row, 12).Value)
End With
F$ = App.Path & "\Вывод\"
    objWrdDoc.SaveAs F$ & CStr(Cells(Selection.Rows.Row, 12).Value) & ".doc"
        objWrdApp.Quit
End If
End If
End Sub

Set objWrdDoc = objWrdApp.Documents.Open(App.Path & "\МФО.dotm")

F$ = ThisWorkbook.Path & "\вывод\"
    objWrdDoc.SaveAs F$ & CStr(Cells(Selection.Rows.Row, 13).Value) & ".doc"
        objWrdApp.Quit wdDoNotSaveChanges

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Range("A:A"), Target) Is Nothing Then
       Dim wdApp As Object, wdDoc As Object, iPath$, txt$
       iPath = ThisWorkbook.Path
       Set wdApp = CreateObject("Word.Application")
       Set wdDoc = wdApp.Documents.Open(iPath & "\МФО.docm") 'Или
       'Set wdDoc = wdApp.Documents.Add(iPath & "\МФО.docm")
       wdApp.Visible = True: txt = CStr(Target(1, 12))
       wdDoc.Bookmarks("ПолноеИмяОрг").Range.Text = txt
       wdDoc.SaveAs iPath & "\Вывод\" & txt & ".doc", 0 'wdFormatDocument
       wdDoc.Close 0 'wdDocwdDoNotSaveChanges
       wdApp.Quit
    End If
End Sub

Dim a As String
a = Replace(CStr(Target(1, 13)), """", "  ", "«»")

wdDoc.SaveAs iPath & "\Вывод\" & newFileName(txt), 0 'wdFormatDocument

Private Function newFileName$(oldFileName$)
    Const trash = "/\?:*""""<>|"
    Dim i&
    For i = 1 To 10 'Len(trash)
        oldFileName = Replace(oldFileName, Mid$(trash, i, 1), "")
    Next
    newFileName = oldFileName & ".doc"
End Function