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:
Das Problem ist, dass beim Erstellen Word hinschreibt:
Die Datenfelder können nicht gefunden werden....
Habs mal selbst programmiert:
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!!
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!!