Sub WordDateiStarten(ByVal oFile As String, Optional oShow As Boolean = True)
    Dim appWord As Object
    Const wdDoNotSaveChanges = 0
    If Dir(oFile) <> "" Then
        Set appWord = CreateObject("Word.Application")
        appWord.documents.Open oFile
        appWord.Visible = oShow
                 '  ......hier werden einige Textmarken befüllt........
        appWord.ActiveDocument.PrintOut Background:=False
        appWord.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
        appWord.Quit
        Set appWord = Nothing
    Else
                  ' ........weitere Anweisung ......
    End If
End Sub

appWord.documents.Open oFile

Uli

Wissen ist Macht; nichts wissen macht auch nichts!