Word VBA教程:HeadingStyles属性

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

VBA示例

本示例将一个样式添至 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号