以前都可以，这次怎么回事！(50分)

这是我录制的宏用来更新目录的
With ActiveDocument
.TablesOfContents(1).Delete
.TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
LowerHeadingLevel:=3, IncludePageNumbers:=True, AddedStyles:=""
.TablesOfContents(1).TabLeader = wdTabLeaderDots
End With

我把它改写成delphi代码
AppWord.Activedocument.TablesOfContents.Delete;
AppWord.Activedocument.TablesOfContents.RightAlignPageNumbers:=True;
AppWord.Activedocument.TablesOfContents.UseHeadingStyles:=True;
AppWord.Activedocument.TablesOfContents.UpperHeadingLevel:=1;
AppWord.Activedocument.TablesOfContents.LowerHeadingLevel:=3;
AppWord.Activedocument.TablesOfContents.IncludePageNumbers:=True;
AppWord.Activedocument.TablesOfContents(1).TabLeader := wdTabLeaderDots;
AppWord.Activedocument.TablesOfContents.format:=wdIndexIndent;

结果它说我没有这个TablesOfContents方法，怎么回事难道我写错了
同志们，调试好了再告诉我正确的。

怎么没有人，我很急得

先要判断有没有表格，没画表格!!

我画表格了，还有6个表格，但是执行的时候说这个对象没有这个方法。

TablesOfContents(1)改成方括号试试：
TablesOfContents[1]
//^<^<<<<<<<<<<<<<<<<<<<<<<<<

还有要注意： 1 是否要改成0??????

对不对呀
我都试过不是括号的问题
而是执行的时候说方法TablesOfContents根本就不属于Activedocument的方法

我现在高定了
就是不知道怎么让目录在指定的页面上显示