Hi,
Ich habe folgenenden VB-Code :
Quelltext
1:
2:
3:
4:
5:
6:
7:
| ActiveDocument.MailMerge.OpenDataSource Name := "D:\Temp\REPORT.xls",
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True,
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="",
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False,
Format:='wdOpenFormatAuto', Connection:="Gesamtes Tabellenblatt",
SQLStatement:="", SQLStatement1:="", SubType:=wdMergeSubTypeOther
CommandBars("Mail Merge").Visible := true |
In Delphi so geschrieben :
Quelltext
1:
2:
3:
4:
5:
6:
7:
| WordApp.ActiveDocument.MailMerge.OpenDataSource(FileName := AFileName,
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True,
AddToRecentFiles:=False, PasswordDocument:='', PasswordTemplate:='',
WritePasswordDocument:='', WritePasswordTemplate:='', Revert:=False,
Format:='wdOpenFormatAuto', Connection:='Gesamtes Tabellenblatt',
SQLStatement:='', SQLStatement1:='', SubType:='wdMergeSubTypeOther');
WordApp.CommandBars('Mail Merge').Visible := true; |
AFileName := 'D:\Temp\REPORT.XLS'; --> diese Zeile steht weiter vorne.
Was mache ich an dem umschreiben verkehrt ? Ich bin für jede Hilfe dankbar.
