TWordDocument Bookmarks ermitteln

[BerndR]

Hallo

wenn ich aus einer Word - Vorlage, die Textmarken enthält, mittels einer TWordDocument - Komponente ein neues Doc erzeuge, möchte ich mir die dort enthaltenen Bookmarks anzeigen lassen. Iterieren über Bookmarks.count funktioniert nicht, Bookmarks.Item akzeptiert offenbar kein Integer als Parameter. Hat jemand eine Idee?

Vielen Dank

[Lemmy]

Hi,

den korrekten Client Wrapper verwendest du? Ich habe bei Word2000 folgendes verwendet:

Delphi-Quellcode:

  for i:=1 to msWordDoc.Bookmarks.Count do
  begin
    ItemIndex:=i;
    BookmarkList.Add(msWordDoc.Bookmarks.Item(Itemindex).Name+'=');
  end;

und mir ist bisher nicht bekannt, dass das nicht funktioniert (auch nicht bei neueren Words)

Grüße

[p80286]

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