自动生成目录

386026398 · 发表于 2020-4-12 11:26

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

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 · 发表于 2020-4-13 10:23

表格内容设成正文。

386026398 · 发表于 2020-4-13 10:49

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

那段vba怎么修改呢

ming0018 · 发表于 2020-4-13 12:49

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

vba 不需要改呀

386026398 · 发表于 2020-4-13 17:03

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

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

ming0018 · 发表于 2020-4-13 17:59

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

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

386026398 · 发表于 2020-4-13 21:58

三级标题。表格如附件

ming0018 · 发表于 2020-4-14 12:50

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

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

cuanju · 发表于 2020-4-14 12:54

本帖最后由 cuanju 于 2020-4-14 12:57 编辑

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

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

386026398 · 发表于 2020-4-14 12:58

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

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

		自动登录	找回密码
密码			免费注册

[求助] 自动生成目录