返回一个 HeadingStyles 对象,该对象代表用于编译目录或图表目录的其他样式(标题 1 至标题 9 以外的样式)。只读。
本示例将一个样式添至 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