Besten Dank für den Hinweis. Leider funktioniert es noch nicht. Folgender Makro wird verwendet:

Code:
 
ThisDocument - 1
Private Sub Document_New()
End Sub
 
Private Sub Document_Open()
'
' Makro1 Makro
' Makro aufgezeichnet am 04.12.2007 von CHW
'
    ChangeFileOpenDirectory "F:\Daten\Tests\"
    Documents.Open FileName:="Platzhalter.doc", ConfirmConversions:=False, _
        ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
    With ActiveDocument.MailMerge
        .Destination = wdSendToPrinter
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
    ActiveDocument.Close
End Sub
 
Private Sub Document_Close()
ThisDocument.Saved = True
End Sub
Das Dokument wird geöffnet und gedruckt. Danach erscheint das übliche Word-Schlussbild mit der Frage ob speichern (was ja nicht erwünscht ist). Unabhängig vom Antwort erscheint der Fehler:

Lauzeitfehler 4248. Dieser Befehl ist nicht verfügbar, weil kein Dokument geöffnet.

Was mache ich falsch ?

Besten Dank und freundliche Grüsse

jgv