AW: Excel ==> Word (Serienbrief mit variablen Date
11.11.2005 18:17:35
ChrisL
Hi Matthias
Vielleicht gehst du das Problem besser von der Word Seite her an (falsches Forum).
Ein Ansatz wäre auf den Serienbrief zu verzichten und mit Bookmarks zu arbeiten d.h. Vorlage (dot) öffnen und Text bei den Bookmarks einsetzen, dann speichern und weiter.
Ansatzmässig und ungetestet:
Sub t()
'Variablen deklarieren
Dim Name As String, Adi As String, Ort As String, Dateiname As String
Dim iZeile As Long
Dim appWD As Object
'Word unsichtbar starten
Set appWD = CreateObject("Word.Application")
appWD.Visible = False
For iZeile = 1 To Range("A65536").End(xlUp).Row
'Werte in Variablen übergeben
Dateiname = Cells(iZeile, 1)
Name = Cells(iZeile, 2)
Adi = Cells(iZeile, 3)
Ort = Cells(iZeile, 4)
'Vorlage als Dokument in Word öffnen
appWD.Documents.Add Template:="C:\test\VorlageWord.dot"
'Variablen an Bookmarks übergeben
With appWD.ActiveDocument
.Bookmarks("Name1").Range.Text = Name
.Bookmarks("Adi").Range.Text = Adi
.Bookmarks("Ort").Range.Text = Ort
.SaveAs Dateiname
.Close
End With
Next iZeile
End Sub
Gruss
Chris