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?