17. November 2014 12:08
ParamFalse := FALSE;
wrdDoc := wrdApp.Documents.Open(MainFileName,ParamFalse,Attachment."Read Only");
// Add the following line.
wrdApp.ActiveWindow.View.ReadingLayout := FALSE;
// End of the added line.
wrdDoc.MailMerge.MainDocumentType := 0;
ParamInt := 7; // 7 = HTML
wrdDoc.MailMerge.OpenDataSource(MergeFileName,ParamInt); <---------- hier steigt der Debugger aus.
ParamInt := 9999998; // 9999998 = wdToggle
wrdDoc.MailMerge.ViewMailMergeFieldCodes(ParamInt);
17. November 2014 14:08
// Add the following line.
wrdApp.ActiveWindow.View.ReadingLayout := FALSE;
// End of the added line.
// Add the following line.
wrdApp.ActiveWindow.View.ReadingLayout := TRUE;
// End of the added line.
17. November 2014 14:28
zannaleer hat geschrieben:
- Code:
ParamFalse := FALSE;
wrdDoc := wrdApp.Documents.Open(MainFileName,ParamFalse,Attachment."Read Only");
// Add the following line.
wrdApp.ActiveWindow.View.ReadingLayout := FALSE;
// End of the added line.
wrdDoc.MailMerge.MainDocumentType := 0;
ParamInt := 7; // 7 = HTML
wrdDoc.MailMerge.OpenDataSource(MergeFileName,ParamInt); <---------- hier steigt der Debugger aus.
ParamInt := 9999998; // 9999998 = wdToggle
wrdDoc.MailMerge.ViewMailMergeFieldCodes(ParamInt);
...
IF ISCLEAR(wrdApp) THEN
CREATE(wrdApp,FALSE,TRUE);
wrdDoc := wrdApp.Documents.Open(MainFileName,ParamFalse,Attachment."Read Only");
// Add the following line.
wrdApp.ActiveWindow.View.ReadingLayout := FALSE;
// End of the added line.
wrdDoc.MailMerge.MainDocumentType := 0;
...
17. November 2014 15:13
17. November 2014 15:17