自动生成目录

386026398

网上看到一段程序，自动生成目录，但是把表格的内容也生成了目录。请高手完善下，能否不将表格内容生成目录


Sub Macro3()
  ActiveDocument.TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
    True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
    LowerHeadingLevel:=3, IncludePageNumbers:=True, AddedStyles:="", _
    UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _
    True
  ActiveDocument.TablesOfContents(1).TabLeader = wdTabLeaderDots
  ActiveDocument.TablesOfContents.Format = wdIndexIndent
End Sub

ming0018

表格内容设成正文。

386026398

ming0018 发表于 2020-4-13 10:23
表格内容设成正文。

那段vba怎么修改呢

ming0018

386026398 发表于 2020-4-13 10:49
那段vba怎么修改呢

vba 不需要改呀

386026398

ming0018 发表于 2020-4-13 12:49
vba 不需要改呀

确实将表格设置为正文后就不将表格内容设置为目录。但是，表格设置为正文时，表格格式发生了变化。相当于清除了格式。有没有两全其美的办法

ming0018

386026398 发表于 2020-4-13 17:03
确实将表格设置为正文后就不将表格内容设置为目录。但是，表格设置为正文时，表格格式发生了变化。相当 ...

有，你目前表格是什么格式？几级标题呢？

386026398

三级标题。表格如附件

ming0018

386026398 发表于 2020-4-13 21:58
三级标题。表格如附件

把表格里的文字全设置成正文就行了，格式不会变。

cuanju

将所有表格大纲级别设置为正文，从而不生成目录
====================================
Sub d()
    Dim Tbl As Table
    For Each Tbl In ActiveDocument.Tables
        Tbl.Range.ParagraphFormat.OutlineLevel = wdOutlineLevelBodyText '表格大纲级别为正文文本
    Next
End Sub

用代码设置后，自动生成的目录，不会再有表格内容出现。

386026398

ming0018 发表于 2020-4-14 12:50
把表格里的文字全设置成正文就行了，格式不会变。

表格文字设置成正文后，原来的数字居右就变成居左了。原来居中的也变成居左了。如果为了一个目录又重新去调整表格文字居右或居中。显得得不偿失。想的是先判断是表格就不生成目录