23. Januar 2008 18:29
23. Januar 2008 18:56
24. Januar 2008 08:08
  ParamFalse := FALSE;
  wrdDoc := wrdApp.Documents.Open2000(MainFileName,ParamFalse,Attachment."Read Only");
  wrdDoc.MailMerge.MainDocumentType := 0;
  ParamInt := 7; // 7 = HTML
  wrdDoc.MailMerge.OpenDataSource2000(MergeFileName,ParamInt);
  ParamInt := 9999998; // 9999998 = wdToggle
  wrdDoc.MailMerge.ViewMailMergeFieldCodes(ParamInt);
  //-->Anfang für Umwandlung in Text
  IF NOT Attachment."Read Only" THEN BEGIN
    wrdApp.Selection.WholeStory;
    wrdApp.Selection.Fields.Unlink;
    wrdApp.ActiveDocument.Shapes.SelectAll; // = alle Textfelder
    wrdApp.Selection.WholeStory;
    wrdApp.Selection.Fields.Unlink;
    ParamInt := 6; //6 = wdStory = Dokumentanfang
    wrdApp.Selection.HomeKey(ParamInt);
  END;
  //<--Ende für Umwandlung in Text
END;
wrdDoc.ActiveWindow.Caption := WordCaption;
wrdDoc.Saved := TRUE;
wrdApp.Visible := TRUE;
WordHandler(wrdDoc,Attachment,WordCaption,IsTemporary,MainFileName,IsInherited);
CLEAR(wrdMergefile);
CLEAR(wrdDoc);
CLEAR(wrdApp);
DeleteFile(MergeFileName);
24. Januar 2008 10:00
21. November 2008 16:28
1. September 2009 14:44