主题：word报表可以做成能自动生成目录的文档格式吗？如附件样式

word可以做成能自动生成目录的文档格式吗？如附件样式

在word报表生成后，目录可以手动在word中生成。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:系统帮助-带目录.rar

 告诉你一个方法，我就不做了。你录制一段宏，然后替换成foxtable的VBA的代码即可

   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

具体代码如下，你对应的改一下来用

Dim app As New MSWord.Application
try
    Dim fileName = "d:\系统帮助-带目录.doc"
    Dim doc As Object = app.Documents.Open(fileName)
    Dim rng As MSWord.Range = Doc.Range(Start:=0, End:=0)
    With Doc
        .TablesOfContents.Add(Range:=rng, RightAlignPageNumbers:= _
        True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
        LowerHeadingLevel:=3, IncludePageNumbers:=True, AddedStyles:="", _
        UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _
        True)
        .TablesOfContents(1).TabLeader = MSWord.WdTabLeader.wdTabLeaderDots
        .TablesOfContents.Format = 0
    End With
   
    App.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
    'app.Quit
End try