Dim doc As New Word.Document
        Dim WordAppl As New Word.Application
 
 
' in Dokument wird der Pfad des Worddokuments übergeben
        doc = WordAppl.Documents.Add(Template:=Dokument, NewTemplate:=False)
 
 
        WordAppl.Application.Visible = False
 
        'Briefangaben(0) = Me.FG_Kundendaten(Zeile, "Anrede")
        'Briefangaben(1) = Me.FG_Kundendaten(Zeile, "Vorname")
        'Briefangaben(2) = Me.FG_Kundendaten(Zeile, "Nachname")
        'Briefangaben(3) = Me.FG_Kundendaten(Zeile, "Straße")
        'Briefangaben(4) = Me.FG_Kundendaten(Zeile, "PLZ")
        'Briefangaben(5) = Me.FG_Kundendaten(Zeile, "Wohnort")
 
 
        'Anrede ersetzen
        WordAppl.ActiveDocument.Content.Find.Execute(FindText:="<Anrede>", _
          ReplaceWith:=Briefangaben(0), Replace:=Word.WdReplace.wdReplaceAll)
        'Vorname ersetzen
        WordAppl.ActiveDocument.Content.Find.Execute(FindText:="<Vorname>", _
          ReplaceWith:=Briefangaben(1), Replace:=Word.WdReplace.wdReplaceAll)
        'Nachname ersetzen
        WordAppl.ActiveDocument.Content.Find.Execute(FindText:="<Nachname>", _
          ReplaceWith:=Briefangaben(2), Replace:=Word.WdReplace.wdReplaceAll)
        'Straße ersetzen
        WordAppl.ActiveDocument.Content.Find.Execute(FindText:="<Straße>", _
          ReplaceWith:=Briefangaben(3), Replace:=Word.WdReplace.wdReplaceAll)
        'Postleitzahl ersetzen
        WordAppl.ActiveDocument.Content.Find.Execute( _
          FindText:="<Postleitzahl>", ReplaceWith:=Briefangaben(4), _
          Replace:=Word.WdReplace.wdReplaceAll)
        'Wohnort ersetzen
        WordAppl.ActiveDocument.Content.Find.Execute(FindText:="<Wohnort>", _
          ReplaceWith:=Briefangaben(5), Replace:=Word.WdReplace.wdReplaceAll)
 
 
        Try
            WordAppl.PrintOut()
            MsgBox("Der Brief wird gedruckt.")
        Catch ex As Exception
            MsgBox("Der Brief konnte nicht gedruckt werden." & Chr(10) & _
              "Prüfen Sie ob der Drucker angeschlossen" & Chr(10) & "und" & _
              "eingeschaltet ist.")
        End Try
        doc.Close(Word.WdSaveOptions.wdDoNotSaveChanges) ' Dokument schließen / 
        ' nicht speichern
        'doc.Close(Word.WdSaveOptions.wdSaveChanges)
 
        doc = Nothing
        WordAppl = Nothing

Hänk

(Wer früh aufsteht hat mehr vom Tag)