Automatisierter Serienbrief - Word 2007

Christianx21x

Grünschnabel
Hallo !
Ich habe folgendes Problem:
Ich möchte einen automatisierten Serienbrief mit VB2008 erstellen. Dieser erstellt zuerst ein MergeFile aus dem die Daten dann an das Serienbrief Dokument gesandt werden.
Jetzt will ich Headers im Word File erstellen. Laut Microsoft sollte das so funktionieren:

Code:
  ' Create a data source at C:\DataDoc.doc containing the field data.
        wrdDoc.MailMerge.CreateDataSource(Name:="C:\DataDoc.doc", _
              HeaderRecord:="FirstName, LastName, Address, CityStateZip")
        ' Open the file to insert data.
        wrdDataDoc = wrdApp.Documents.Open("C:\DataDoc.doc")
        For iCount = 1 To 2
            wrdDataDoc.Tables.Item(1).Rows.Add()
        Next iCount
        ' Fill in the data.
        FillRow(wrdDataDoc, 2, "Steve", "DeBroux", _
              "4567 Main Street", "Buffalo, NY  98052")
        FillRow(wrdDataDoc, 3, "Jan", "Miksovsky", _
              "1234 5th Street", "Charlotte, NC  98765")
        FillRow(wrdDataDoc, 4, "Brian", "Valentine", _
              "12348 78th Street  Apt. 214", "Lubbock, TX  25874")
        ' Save and close the file.
        wrdDataDoc.Save()
        wrdDataDoc.Close(False)

Das Problem ist, dass beim Erstellen Word hinschreibt:
Die Datenfelder können nicht gefunden werden....
Habs mal selbst programmiert:

Code:
wrdDoc.MailMerge.CreateDataSource(Name:=strSerienbriefpfad & "\DataDoc3.doc", _ HeaderRecord:="Name1")

wrdDataDoc = wrdApp.Documents.Open(strSerienbriefpfad & "\" & "DataDoc3.doc")
            For iCount = 1 To intAnzahlEintrage - 1
                wrdDataDoc.Tables.Item(1).Rows.Add()    'Zeilen einfügen 
            Next iCount

            FillRow2(wrdDataDoc, 2, "test")
            wrdDataDoc.Save()           'Eingefügte Daten speichern


Die FillRow Prozedur sieht so aus:

Private Sub FillRow2(ByVal Doc As Word.Document, ByVal Row As Integer, ByVal Text1 As String)

Try
            With Doc.Tables.Item(1)
                .Cell(Row, 1).Range.InsertAfter(Text1)
            End With
        Catch ex As Exception

End Try
End Sub

Das Funktioniert --> Der Delimiter bei HeaderRecord:= "...." passt nicht!!
Wie kann ich mehrere Header einbauen?

HeaderRecord:="Name1, Name2, etc." geht nicht

Bitte helft mir, ist sehr dringend!!
 
Hallo @ All!
Habe das Problem bereits selbst gelöst!:)
Wenn irgendjemand den Sourcecode benötigt, einfach schreiben - is ne ganze Menge...
 
Zurück