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
