Opened by Winki at 2013-03-20 12:48
User since
2012-05-04
1075 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2012-05-04
1075 Artikel
BenutzerIn
Hm, ich habe sowas vor einiger Zeit in Delphi gemacht. Den Code habe ich damals dadurch ermittelt, einfach in Word ein Macro aufzunehmen und es dann abzutippen.
Hier ist mein damaliger Code (sollte ja analog in Perl umzusetzen sein):
Habe momentan kein Windows in der Nähe, aber vielleicht hilft irgendeiner der obigen Befehle?
Hier ist mein damaliger Code (sollte ja analog in Perl umzusetzen sein):
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
w.ActiveDocument.MailMerge.MainDocumentType := wdFormLetters;
w.ActiveDocument.MailMerge.OpenDataSource(
Name:=OutputDirEdit.Text+'\Quelle.doc',
ConfirmConversions:=False,
ReadOnly:=False,
LinkToSource:=True,
AddToRecentFiles:=False,
PasswordDocument:='',
PasswordTemplate:='',
WritePasswordDocument:='',
WritePasswordTemplate:='',
Revert:=False,
Format:=wdOpenFormatAuto,
Connection:='',
SQLStatement:='',
SQLStatement1:=''
);
w.ActiveDocument.MailMerge.Destination := wdSendToNewDocument;
w.ActiveDocument.MailMerge.MailAsAttachment := False;
w.ActiveDocument.MailMerge.MailAddressFieldName := '';
w.ActiveDocument.MailMerge.MailSubject := '';
w.ActiveDocument.MailMerge.SuppressBlankLines := True;
w.ActiveDocument.MailMerge.DataSource.FirstRecord := datensatzA;
w.ActiveDocument.MailMerge.DataSource.LastRecord := datensatzE;
w.ActiveDocument.MailMerge.Execute(Pause:=True);
Habe momentan kein Windows in der Nähe, aber vielleicht hilft irgendeiner der obigen Befehle?