ник: mdug
Сделала так... Делюсь. Но на основе готового шаблона:
Private Sub cmdpech_Click()
Dim appWord As Word.Application
Dim docWord As Document
Dim sFileName As String
sFileName = App.Path & "\BLANK\Удостоверение.dot"
Set appWord = New Word.Application
Set docWord = appWord.Documents.Add(sFileName, False, wdFormLetters, True)
With docWord.MailMerge
.Destination = wdSendToNewDocument
.Execute (False)
appWord.Visible = True
docWord.SpellingChecked = False
End With
end sub