Question

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

代表一个用于建立目录或图表目录的样式。HeadingStyle 对象是 HeadingStyles 集合中的一个元素。

使用 HeadingStyle 对象

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

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

用 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