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 :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

' 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 :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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...

Könntest Du den Code mal posten?

Hmm schade hätte den Code auch gut gebrauchen können