Word) (TableOfContents.HeadingStyles 属性

返回一个 HeadingStyles 对象，该对象代表用于编译目录或图表目录的其他样式（标题 1 至标题 9 以外的样式）。 只读。

语法

expression。 HeadingStyles

表达 一个代表“TableOfContents”集合的变量。

示例

本示例将一个样式添至 HeadingStyles 集合，然后显示集合中所有样式名。

Dim hsLoop As HeadingStyle 
 
If ActiveDocument.TablesOfContents.Count >=1 Then 
 ActiveDocument.TablesOfContents(1).HeadingStyles.Add _ 
 Style:="Title", Level:=2 
 For Each hsLoop In _ 
 ActiveDocument.TablesOfContents(1).HeadingStyles 
 MsgBox hsLoop.Style 
 Next hsLoop 
End If

本示例将一个名为"Blue"的样式添至 Sales.doc 的目录中的 HeadingStyles 集合。

With Documents("Sales.doc") 
 .Styles.Add Name:="Blue" 
 .TablesOfContents(1).UseHeadingStyles = True 
 .TablesOfContents(1).HeadingStyles.Add _ 
 Style:="Blue", Level:=4 
End With

另请参阅

TableOfContents 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。