3. Dezember 2007 17:14
3. Dezember 2007 17:33
3. Dezember 2007 20:42
5. Dezember 2007 16:00
Name DataType Subtype Length
WDApp Automation Unknown Automation Server.Application
WDDoc Automation Unknown Automation Server.Document
WDRange Automation Unknown Automation Server.Range
WDTable Automation Unknown Automation Server.Table
WDBookmark Automation Unknown Automation Server.Bookmark
CREATE(WDApp,TRUE);
REPEAT UNTIL VARIABLEACTIVE(WDApp);
WDApp.Visible(TRUE);
WDDoc := WDApp.Documents.AddOld(filename);
WDDoc.Bookmarks.Item(Textmarke).Range.Text();
filename := AusgabePfad+'Test'.doc';
WDDoc.SaveAs2000(filename);