Question

Documents (Document) 多种对象 HeadingStyles (HeadingStyle)

由 HeadingStyle 对象所组成的集合，该集合中的对象代表了用于编排图表目录或目录的样式。

使用 HeadingStyles 集合

用 HeadingStyles 属性可返回 HeadingStyles 集合。下列示例显示活动文档第一个目录所用 HeadingStyles 集合的项的总数。

MsgBox ActiveDocument.TablesOfContents(1).HeadingStyles.Count

用 Add 方法可在 HeadingStyles 集合中添加样式。下列示例在活动文档开始处添加一个目录，并将 Title 样式添至用于建立目录的样式列表中。

Set myToc = ActiveDocument.TablesOfContents.Add _
 (Range:=ActiveDocument.Range(0, 0), UseHeadingStyles:=True, _
 LowerHeadingLevel:=3, UpperHeadingLevel:=1)
myToc.HeadingStyles.Add Style:="Title", Level:=2

用 HeadingStyles (index) 可返回单个的 HeadingStyle 对象，其中index 是索引序号。索引序号代表该样式在 HeadingStyles 集合中的位置。下列示例在活动文档开头添加一个根据 Title 样式建立的图表目录，并显示 HeadingStyles 集合中第一个样式的名称。

Set myTOF = ActiveDocument.TablesOfFigures.Add _
 (Range:=ActiveDocument.Range(0, 0), AddedStyles:="Title")
MsgBox myTOF.HeadingStyles(1).Style