Delphi-Quellcode:
msword:=createoleobject('WORD.APPLICATION');
msword.Documents.Add('c:\temp\word_bookm_test.dot'); { mit Template!}
// oder:
msword.Documents.Add(Template:=wfile, NewTemplate:=False, DocumentType:=0);
bkmkcnt:=msword.ActiveDocument.Bookmarks.count;
Memo1.Lines.Add(' Word-Dokument:'+msword.ActiveDocument.name);
Memo1.Lines.Add(' Anzahl Bookmarks:'+inttostr(bkmkcnt));
Memo1.Lines.Add('');
Memo1.Lines.Add('Index BookmarkName');
i:=1;
if bkmkcnt>0 then
repeat
Memo1.Lines.add(inttostr(i)+') '+msword.ActiveDocument.bookmarks.item(i).name);
inc(i,1);
until i>bkmkcnt;
ob es bei DOCs funktioniert hab ich noch nie ausprobiert.
(sollte aber)
Gruß
K-H