Private Wpr As Word.Application
 
Public Function Ansch_Erstellen()
 
Set Wpr = New Word.Application
 
With Wpr
 
    .Documents.Add (Path)  ' Pfad des Dokumentes am besten aus einer *.dot 
    ' Datei (nicht doc)
 
    With .Selection
 
             .GoTo what:=wdGoToBookmark, Name:="<Platzhaltername>"
             .Selection.TypeText Text:= "<dein Text>"
 
             .GoTo what:=wdGoToBookmark, Name:="<Platzhaltername1>"
             .Selection.TypeText Text:= "<dein Text1>"
 
             ' und so weiter
 
 
            '  und zum Schluß
             .PrintOut <eventuelle Einstellungen>
 
    End With
 
End With
 
Set Wpr = Nothing
 
End Function

Private Sub cmd_Click()
 
Dim WdAn As claWord
 
        Set WdAn = New claWord
 
            With WdAn
 
                .Ansch_erstellen
 
            End With
 
        Set WdAn = Nothing
 
End Sub