Word目录设置：仅显示一级大纲与TC字段，隐藏二级标题及格式调整问题

核心问题场景 #

处理多份格式一致的Word文档，文档包含wdStyleHeading1一级标题，每个一级标题下有4-5个wdStyleHeading2二级标题。已通过以下代码给每个一级标题下的特定标题标记TC字段，用于纳入目录：

ActiveDocument.TablesOfContents.MarkEntry Range:=Selection.Range, Entry:="TitleSample", Level:=1

使用指定代码生成目录时，需要实现：仅显示标记的TC字段标题和一级大纲标题，隐藏wdStyleHeading2二级标题。尝试过Paragraph.OutlineDemote方法但无效，纠结是替换样式还是保留原样式排除出目录。

最优解决方案：保留原样式，直接调整目录生成代码 #

不需要修改文档样式，只需调整目录生成代码的参数即可实现需求：

• 将LowerHeadingLevel:=2改为LowerHeadingLevel:=1，让目录仅提取一级标题样式
• 保留UseFields:=True，确保手动标记的TC字段被纳入目录

修改后的完整代码：

With ActiveDocument
      .TablesOfContents.Add Range:=Selection.Range, _
            RightAlignPageNumbers:=True, _
            UseHeadingStyles:=True, _
            UpperHeadingLevel:=1, _
            LowerHeadingLevel:=1, ' 仅提取一级标题样式
            UseFields:=True, ' 启用TC字段提取
            IncludePageNumbers:=True, _
            AddedStyles:="", _
            UseHyperlinks:=True, _
            HidePageNumbersInWeb:=True, _
            UseOutlineLevels:=True
      .TablesOfContents(1).TabLeader = wdTabLeaderDots
      .TablesOfContents.Format = wdIndexIndent
End With

备选方案：修改二级标题样式的大纲级别 #

如果不想调整目录代码，也可以直接修改wdStyleHeading2的大纲级别，使其不被目录识别：

• 手动操作：打开样式管理器，找到wdStyleHeading2，将其「大纲级别」改为「正文文本」
• 代码批量修改：

Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
    If para.Style = wdStyleHeading2 Then
        para.OutlineLevel = wdOutlineLevelBodyText
    End If
Next para

此方案会保留二级标题的格式，但大纲级别被取消，不会被目录提取。

额外问题：让大纲级别1的条目不显示TabLeader和页码，其他条目正常 #

可以通过修改目录对应的样式实现，代码示例如下：

With ActiveDocument.TablesOfContents(1).Styles(wdStyleTOC1)
    .ParagraphFormat.TabStops.ClearAll ' 清除制表位，移除前导点
    .PageNumberStyle = wdPageNumberStyleNone ' 隐藏页码
End With

执行这段代码后，目录中对应大纲级别1的条目（包括一级标题和Level=1的TC字段）会去掉前导点和页码，其他级别条目保持原有格式。

内容的提问来源于stack exchange，提问作者Max Vaehrens