Private Sub Druck()
Dim App As Word.Application
Dim Doc As Word.Document
Dim str As String
 
On Error Resume Next
 
Set App = New Word.Application
 
str = "E:\Serienbrief.dot"
 
Set Doc = App.Documents.Add(Template:=str)
 
App.ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
App.ActiveDocument.PrintOut
End Sub