急！！！！！：各位大虾：如何通过OLE从Word文档中取出它的目录结构的标题(100分)

有一个问题想请教大家：如何通过OLE从Word文档中取出它的目录结构的标题，我只知道如下写： 这样很麻烦，不知到还有什么方法？不胜感激！！！
WordApp:=CreateComObject(CLASS_Application) as _Application;
WordApp.Documents.Open(FileName1,
ConfirmConversions1,
ReadOnly1,
AddToRecentFiles1,
PasswordDocument1,
PasswordTemplate1,
Revert1,
WritePasswordDocument,
WritePasswordTemplate1,
Format1);
for i:=1 to WordApp.ActiveDocument.TablesOfContents.Count do
begin
with WordApp.ActiveDocument.TablesOfContents.Item(i).Range.Words do
for m:=1 to Count do
begin
？？？？？？。。。。。

end;

end;

>>

求求大家救救我！

??
你想要什么，详细

如何通过OLE从Word文档中取出它的目录信息,例如：Word文档可按标题定位
标题1
标题2
标题2.1
标题2.2
.
.

.

.

附加功能 将问题提前

先GetItem,再用GotoBookmark去控制循环次数,再用类似item().item(i)的方法

接受答案了.