VBA熟悉的看看用delphi生成Word索引生成问题.

WORD里录制的宏
    With ActiveDocument
        .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
            True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
            LowerHeadingLevel:=3, IncludePageNumbers:=True, AddedStyles:="", _
            UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _
            True
        .TablesOfContents(1).TabLeader = wdTabLeaderDots
        .TablesOfContents.Format = wdIndexIndent
    End With
而delphi7中officeXP.pas对此函数声明:
       {  function Add(const Range: Range; var UseHeadingStyles: OleVariant;
                 var UpperHeadingLevel: OleVariant; var LowerHeadingLevel: OleVariant;
                 var UseFields: OleVariant; var TableID: OleVariant;
                 var RightAlignPageNumbers: OleVariant; var IncludePageNumbers: OleVariant;
                 var AddedStyles: OleVariant; var UseHyperlinks: OleVariant;
                 var HidePageNumbersInWeb: OleVariant; var UseOutlineLevels: OleVariant): TableOfContents; safecall;
       }在调用时:
  
    WordDocument1.TablesOfContents.Add(WordDocument1.Range,UseHeadingStyles,
                                        UpperHeadingLevel,LowerHeadingLevel,
                                        UseFields, TableID,
                                        RightAlignPageNumbers,IncludePageNumbers,
                                        AddedStyles,UseHyperlinks,
                                        HidePageNumbersInWeb,UseOutlineLevels);
      WordDocument1.TablesOfContents.Item(1).TabLeader:=wdTabLeaderDots;
      WordDocument1.TablesOfContents.Format:=wdTabLeaderDots;
关于:TableID的初始化:
不清楚怎么初始化:我直接给定:TableID :='';
可最后生成WORD文档中,没有索引? 请问为何如此?
还有如何检查当前Word文挡中是否存在索引与目录?在VBA没找到检查的函数?