Hallo,
ich habe ein Excel Dokument. Ich habe verschiedene Liferanten und jeder Lieferant hat mehrere Auftragsnummer. Jetzt möchte ich gern ein Serienbrief erstellen für jeden Lieferanten. Auf einer Tabelle im Word-Dokument sollen alle Auftragsnummern des Lieferanten stehen.
Wer kann helfen?
Viele Grüße
Das Word-Dokument bekomme ich schonmal geöffnet :)
Sub Worddatei()
Dim xDoc As String
Dim appWord As Object
xDoc = "V:\Controlling\2012\Gutschrift\Anschreiben.docx"
If Dir(xDoc) <> "" Then
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
appWord.Documents.Open xDoc
Set appWord = Nothing
Else
MsgBox "Das Dokument wurde nicht gefunden!"
End If
On Error GoTo 0
Wie füge ich jetzt die Daten ein?
|