Просто это сделать при помощи шаблона,
создаем Mytemplate.dot, в места куда вставляются данные ставим закладки и обзываем их именами полей, (а можно и любыми другими). далее поляформы затолняем данными, открываем шаблон и вставляем значения закладок.
пишем процедуру старта ворда
(чтобы каждый раз не открывать его если уже открыт.
Private Sub startword()
On Error GoTo err_
Dim wrd As Word.Application
Dim isrunning As Boolean
isrunning = True
Set wrd = GetObject(, "word.Application")
If isrunning = False Then
wrd.Quit
End If
Exit Sub
err_:
If err.Number = 429 Then
Set wrd = CreateObject("word.application")
isrunning = False
Resume Next
Else
MsgBox err.Number & " " & err.Description
Exit Sub
End If
End Sub

Далее процедура не кнопке ;(можно и просто процедуру
типа
outputWord(strtempDod,Парам1,.......Парам...as Тип)
Dim wrdDoc As New Word.Document
Dim app As Word.Application 'Приложение программы
Call startword
Set wrdDoc = New Word.Document
Set app = GetObject(, "Word.application")
app.Documents.Add strtempDod 'добавляем шаблон (путь)
On Error Resume Next
With app.ActiveDocument
.Bookmarks("Имя").Range.Text = Зачение1
.Bookmarks("Имя2").Range.Text = Значение2
.........................................

End With
app.Visible = True
End sub

Если имено закладок и полей в форме совпадают(одинаковые ) то можно
On Error Resume Next
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
S = ctl.name ' Определяем название элемента
.Bookmarks.Item(S).Range.Text = Me(S)
err.Clear
End If
Next ctl