300分！如何将word文档中的书签名全部导入memo中？(300分)

procedure TForm1.Button2Click(Sender: TObject);
var
FileName : OleVariant;
I : Integer;
Index : Olevariant;
BookMarkName : string;
begin
WordApp.Connect ;
FileName := 'D:/SendFile/temp/ASP.DOC';
WordApp.Documents.Open(FileName,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam);
for I := 1 to WordApp.ActiveDocument.Bookmarks.Get_Count do
begin
Index := I;
BookMarkName := WordApp.ActiveDocument.Bookmarks.Item(Index).Name;
ListBox1.Items.Add(BookMarkName);
end;
WordApp.Disconnect ;
end;

奇怪，运行时提示Get_Count不支持自动化对象

修改：
for I := 1 to WordApp.ActiveDocument.Bookmarks.Count do

同意linsb。如果还不行，就查找一下Word自身带的帮助文件。