HeadingStyles 属性

返回一个 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