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