Hallo ihr zwei!

Bin noch stolzer Besitzer von MSO 2003. Kenne mich mit Serienbriefen nicht aus. Habe aber mal schnell den Makrorecorder angeworfen. Vielleicht kann das ja helfen. Ne Frage vorab hätte ich aber noch. Woher bekommt der "Serienbrief" die Daten? Müssten nicht irgendwo am Anfang noch die Verlinkung zu den Daten stehen? Zumindest in meinem Versuch musste ich erst die Quelle bestimmen.

Also hier mal der Recorderinhalt.  Der Drucker wird mit      .Destination = wdSendToPrinter

angesteuert. Wenn ihr noch was braucht, einfach melden. Viele Grüße

Sub Makro1()
'
' Makro1 Makro
' Makro aufgezeichnet am 17.01.2016 von ich
'
    ActiveDocument.MailMerge.MainDocumentType = wdNotAMergeDocument
    ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "C:\Users\ich\Desktop\quelle.xls", ConfirmConversions:=False, ReadOnly:= _
        False, LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:="", _
         PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:= _
        "", Revert:=False, Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\Users\ich\Desktop\quelle.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine " _
        , SQLStatement:="SELECT * FROM `Tabelle1$`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess
    ActiveDocument.Fields.Add Range:=Selection.Range, Type:= _
        wdFieldAddressBlock, Text:= _
        "\f ""<<_COMPANY_" & Chr(13) & ">><<_FIRST0_" & Chr(13) & ">>"" \l 1031 \c 2 \e ""Deutschland"" \d"
End Sub
Sub Makro2()
'
' Makro2 Makro
' Makro aufgezeichnet am 17.01.2016 von ich
'
    With ActiveDocument.MailMerge
        .Destination = wdSendToPrinter
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
End Sub