So sieht das Skript bisher aus:
[
.
.
.
]
Dim word As Variant
Dim WordDoc1 As Variant
Dim WordDoc2 As Variant
Dim object As Variant
Dim WordObj As Variant
iAlterRecord = 0
iNeuerRecord = 10
Set word = CreateObject("Word.Application") 'Create Word object
Call word.documents.add(PFAD$,False)
Set Worddoc2 = word.activedocument 'Get a handle for the active document
WordDoc2.MailMerge.MainDocumentType = wdFormLetters
Call WordDoc2.MailMerge.OpenDataSource(DataSourcePfad)
WordDoc2.MailMerge.SuppressBlankLines = True
Call WordDoc2.MailMerge.Execute(True)
word.visible = True 'Comment this line if you don't want to show Word.
'word.quit 'remove comment if you want to close rather than show Word.
'Worddoc2.MailMerge.ViewMailMergeFieldCodes = wdToggle
' wohin kommt das und was bringt es ?
WordDoc2.MailMerge.DataSource.ActiveRecord = wdFirstRecord
Do While iAlterRecord <> iNeuerRecord
'Warten, bis (evtl. aus dem Vorlauf noch vorhandene) Attribute.txt nicht mehr da ist ..
iRepetition = 0
iAlterRecord = iAlterRecord + 1
word.ActivePrinter = "Print-2-Image"
Call worddoc2.PrintOut(False, , , , , , , 1)
WordDoc2.saveas("c:\temp\test.doc") 'save the document with the filename of "user"
WordDoc2.MailMerge.DataSource.ActiveRecord = wdNextRecord
Loop