写一段VBA代码，批量生成目录表

以下是一个简单的VBA代码示例，用于批量生成目录表：

Sub CreateTableOfContents()
    '定义变量
    Dim toc As TableOfContents
    Dim tocRange As Range
    Dim headingRange As Range
    
    '选择目录表所在的范围
    Set tocRange = ActiveDocument.Range(0, 0)
    
    '设置目录表样式
    Set toc = ActiveDocument.TablesOfContents.Add(tocRange, True)
    With toc
        .TabLeader = wdTabLeaderDots
        .UpperHeadingLevel = 1
        .LowerHeadingLevel = 3
        .IncludePageNumbers = True
        .RightAlignPageNumbers = True
        .UseFields = True
    End With
    
    '选择所有标题文本
    Set headingRange = ActiveDocument.Range(0, 0)
    headingRange.Collapse wdCollapseStart
    headingRange.MoveStart wdParagraph, 1
    headingRange.MoveEnd wdStory
    
    '更新目录表
    toc.Update
    
    '恢复焦点
    ActiveDocument.Range(0, 0).Select
End Sub

这段代码可以在Word中使用，它会扫描整个文档，将所有标题级别在1-3之间的标题添加到目录表中，并根据设定的样式格式化目录表。要运行这段代码，请按下Alt + F11打开Visual Basic编辑器，将代码复制粘贴到编辑器窗口中，然后按下F5或单击“运行”按钮即可。