Получение закладок Word

← →
syte_ser78 © (2005-01-18 09:05) [0]

procedure Tfrm_main.Button5Click(Sender: TObject);
var
i:integer;
wrd:wordapplication;
wrd_doc:worddocument;
begin
try
wrd := GetActiveOleObject( "Word.Application")as WordApplication;
except
wrd := CreateOLEObject( "Word.Application") as WordApplication;
end;
try
wrd_doc:=wrd.ActiveDocument;
except
end;
// i:=wrd_doc.Bookmarks.Count-1;
for i:=0 to wrd_doc.Bookmarks.Count-1 do
begin
// frm_main.Memo2.Lines.Add(wrd_doc.);
end;
end;

Переменная i всегда равна нулю. Закладки в активном документе ворда есть. В чем ошибка?

← →
YurikGL © (2005-01-18 09:15) [1]

> syte_ser78 © (18.01.05 09:05)

попробуй
showmessage(intToStr(wrd_doc.Bookmarks.Count));

Ок! Ошибку обнаружил

wrd_doc.Bookmarks - типа боолеан
как получить значение i-го значения закладки?

Получение закладок Word Найти похожие ветки