Sub CallDoc()
Call funOutputWord("" & ThisWorkbook.Path & "\temlate.dotx", "" & ThisWorkbook.Path & "\result.docx")

End Sub


'функция выгрузки в Word значений полей формы через закладки в шаблоне
Function funOutputWord(strPathDot As String, strPathWord As String) As Boolean
On Error GoTo Err_

Dim DlgUser As Integer, i As Long

    'проверяем наличие софрмированного ранее документа
    If Dir(strPathWord) <> "" Then 'если нашелся документ по заданому в strPathWord полному пути (вместе с именем)
        DlgUser = MsgBox("Документ с таким именем ранее уже был создан. Заменить его?", vbYesNo, "Внимание !!!")
        If DlgUser = vbNo Then 'если пользователь выбрал Нет - то открываем прежний вариант документа
            Set app = CreateObject("Word.Application") 'создаем объект Word, чтобы можно было работать с его методами и свойствами
            With app
                .Visible = True 'запускаем приложение Word
                .Documents.Open strPathWord 'открываем документ (по пути в переменной strPathWord)
            End With
            Set app = Nothing 'уничтожаем переменную
        Else 'если пользователь выбрал Да - то есть согласился перезаписать документ
            GoTo nn 'переходим по метке nn
        End If
    Else 'если не нашлось документа по заданому в strPathWord полному пути
nn:
        Set app = New Word.Application 'делаем ссылку на объект Word для создания нового документа
        app.Visible = True 'запускаем приложение Word
        app.Documents.Add strPathDot 'присоединяем к объекту Word шаблон по заданому пути
        With app.ActiveDocument 'делаем ссылку на активный документ - в данном случае тот что формируется
            'находим закладку по имени в заменяем ее на текст из поля формы
            
            'общая часть
            .Bookmarks.Item("bookmark_1").Range.Text = IIf(IsNull(Sheets(1).Cells(1, 1).Value), "", Sheets(1).Cells(1, 1).Value)
            .Bookmarks.Item("bookmark_2").Range.Text = IIf(IsNull(Sheets(1).Cells(1, 2).Value), "", Sheets(1).Cells(1, 2).Value)
            'и так далее. Если все букмарки назвать однотипно, то можно завернуть в цикл

            
            'если в шаблоне нужно заполнить таблицу - запускаем соответсвующую функцию
            'если заполнять таблицу не нужно - убираем эту строку
            'Call funOutputTableWordQuery(strPathDot, strPathWord)
            
            'Чистим незаполненные закладки
            With .Bookmarks
                For i = .Count To 1 Step -1
                    'если имя Bookmark совпадает с его содержимым
                    If .Item(i).Name = .Item(i).Range.Text Then
                        'Удаляем содержимое (вместе с ним удаляется и сама Bookmark)
                        .Item(i).Range.Text = ""
                    End If
                Next i
            End With

            .SaveAs strPathWord 'сохраняем созданный документ по заданному пути strPathWord
        End With
        Set app = Nothing 'уничтожаем переменную
    End If
    funOutputWord = True 'ставим флаг успешного выполнения функции
    
Exit_:
    Exit Function
Err_:
    funOutputWord = False
    Err.Clear
    app.Quit
    Resume Exit_
End Function

 .Bookmarks.Item("bookmark_1").Range.Text = IIf(IsNull(Sheets(1).Cells(1, 1).Value), "", Sheets(1).Cells(1, 1).Value)

ActiveDocument.Fields.Update