В ворде делаешь закладки а потом:

Private Sub Command3_Click()
Dim w As Word.Application, File, sv, data As String
'технологическая связь
If DataGrid1.Columns(5).text = "Технологическая связь" Then
Set w = CreateObject("Word.Application")
w.Documents.Open (App.Path & "\Заявки\уст,переуст,технолог.связи.doc")
w.ActiveDocument.Bookmarks("Адресат").Select
w.Selection.text = "Управление ПО "" НОРИЛЬСКЭНЕРГО """
w.ActiveDocument.Bookmarks("Видработ").Select
w.Selection.text = DataGrid1.Columns(3).text
w.ActiveDocument.Bookmarks("фио").Select
w.Selection.text = DataGrid1.Columns(0).text
w.ActiveDocument.Bookmarks("датаподачи").Select
w.Selection.text = DataGrid1.Columns(6).text
File = Left(DataGrid1.Columns(0).text, (InStr(1, DataGrid1.Columns(0).text, " ")) - 1)
sv = Left(DataGrid1.Columns(5).text, 3)
w.ActiveDocument.SaveAs ("c:\готовые бланки\" & DataGrid1.Columns(3) & "\" & File & "_" & sv & ".doc")
w.Visible = True
rcd18.MoveFirst
Exit Sub
End If