Excel -> Serienbrief --> Word

Forumthread: Excel -> Serienbrief --> Word

28.04.2009 14:43:10

Captain

Hi,
komme hier nicht weiter und habe ein Problem! :-(
Habe eine Adressdatenbank in Exel und möchte nun für jede Zeile je ein Dokument ausdrucken. Beim ersten Aufruf funzt das auch einwandfrei und dann nicht mehr. Ich weiß auch warum! Meine .dot Datei bzw. die Textfelder sind nicht geschützt und die Textmarken sind dann wech!?
Wie kann ich das jetzt umgehen?
Danke


If Dir(oFile)  "" Then
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
appWord.WindowState = wdWindowStateMinimize
appWord.documents.Open oFile
For i = 2 To Worksheets("Hunde").UsedRange.Rows.Count
If Worksheets("Hunde").Cells(i, 41) = "" Then
appWord.activedocument.bookmarks("Vorname").Range.Text = Worksheets("Hunde"). _
Cells(i, 4)
appWord.activedocument.bookmarks("Name").Range.Text = Worksheets("Hunde").Cells( _
_
i, 3)
appWord.activedocument.bookmarks("Straße").Range.Text = Worksheets("Hunde"). _
Cells(i, 11)
appWord.activedocument.bookmarks("Hausnummer").Range.Text = Worksheets("Hunde"). _
_
Cells(i, 12)
appWord.activedocument.bookmarks("PLZ").Range.Text = Worksheets("Hunde").Cells(  _
_
i, 13)
appWord.activedocument.bookmarks("Ort").Range.Text = Worksheets("Hunde").Cells(  _
_
i, 14)
appWord.activedocument.PrintOut
End If
Next i
Else
MsgBox "Das Dokument wurde nicht gefunden!", vbCritical, "Hinweis"
End If

Jack

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Excel -> Serienbrief --> Word

28.04.2009 15:47:16

fcs
AW: Excel -> Serienbrief --> Word

28.04.2009 21:06:38

Captain

AW: Excel -> Serienbrief --> Word

28.04.2009 15:47:16

fcs

Hallo Jack,
evtl. geht es so. Dabei wird das Word-Musterdocument innerhalb der For-Next-Schleife jeweils neu geöffnet.
Gruß
Franz


Sub test()
If Dir(oFile)  "" Then
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
appWord.WindowState = wdWindowStateMinimize
For i = 2 To Worksheets("Hunde").UsedRange.Rows.Count
If Worksheets("Hunde").Cells(i, 41) = "" Then
appWord.documents.Open oFile
appWord.activedocument.bookmarks("Vorname").Range.Text = _
Worksheets("Hunde").Cells(i, 4)
appWord.activedocument.bookmarks("Name").Range.Text = _
Worksheets("Hunde").Cells(i, 3)
appWord.activedocument.bookmarks("Straße").Range.Text = _
Worksheets("Hunde").Cells(i, 11)
appWord.activedocument.bookmarks("Hausnummer").Range.Text = _
Worksheets("Hunde").Cells(i, 12)
appWord.activedocument.bookmarks("PLZ").Range.Text = _
Worksheets("Hunde").Cells(i, 13)
appWord.activedocument.bookmarks("Ort").Range.Text = _
Worksheets("Hunde").Cells(i, 14)
appWord.activedocument.PrintOut
appWord.activedocument.Close savechanges:=False 'oder Document speichern
End If
Next i
Else
MsgBox "Das Dokument wurde nicht gefunden!", vbCritical, "Hinweis"
End If
End Sub

AW: Excel -> Serienbrief --> Word

28.04.2009 21:06:38

Captain

Hi,
nee, das war es nicht. Aber ich habe es gefunden...


appWord.activedocument.FormFields("Vorname").Result = Worksheets("Hunde").Cells(i, 4)

UNd damit funzt es :-)
Danke dennoch
Greetz
Jack

Beliebteste Forumthreads (12 Monate)

Forumthread: Excel -> Serienbrief --> Word

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread