VB生成WORD文档并在文档里插如目录，急，在线等！

Question

刚做VB不久，不知道该怎样弄，现在可以导出生成的WORD文档，第2页是空的，要插入目录。要生成目录的字符都给标题了式样，我在WORD了录下的宏为：
Public Sub Macro1()
    With ActiveDocument
        .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
            True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
            LowerHeadingLevel:=1, IncludePageNumbers:=True, AddedStyles:="", _
            UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _
            True
        .TablesOfContents(1).TabLeader = wdTabLeaderDots
        .TablesOfContents.Format = wdIndexIndent
    End With
End Sub
直接调用没用，该怎么做？望各位朋友不吝赐教，谢谢！本人分数少见谅了！

Answer 1

请问现在解决了吗？我正在作这方面的问题！