Word VBA教程:Level属性

应用于 HeadingStyle对象的 Level属性。

返回或设置目录或图表目录中标题样式的级别。Integer 类型,可读写。

expression.Level

expression   必需。该表达式返回一个HeadingStyle对象。

应用于 Subdocument对象的 Level属性。

返回用来创建子文档的标题的级别。Long 类型,只读。

expression.Level

expression   必需。该表达式返回一个Subdocument对象。

VBA示例

当应用于 HeadingStyle对象时。

本示例在活动文档的插入点添加一个目录,然后更改标题样式的级别。


ActiveDocument.TablesOfContents.Add _
    Range:=Selection.Range, _
    RightAlignPageNumbers:=True, _
    UseHeadingStyles:=True, _
    UpperHeadingLevel:=1, _
    LowerHeadingLevel:=3, _
    IncludePageNumbers:=True, _
    TableID:=wdTOCFormal
With ActiveDocument.TablesOfContents(1).HeadingStyles
    .Add Style:="Title", Level:=1
    .Add Style:="SubTitle", Level:=2
    .Add Style:="List Bullet", Level:=3
End With
With ActiveDocument.TablesOfContents(1)
    .HeadingStyles(1).Level = 2
    .HeadingStyles(2).Level = 4
    .HeadingStyles(3).Level = 6
End With

当应用于 Subdocument对象时。

本示例搜索活动文档的每篇子文档,显示子文档的标题级别。


i = 1
If ActiveDocument.Subdocuments.Count > = 1 Then
    For each s in ActiveDocument.Subdocuments
        MsgBox "The heading level for SubDoc " & i _
            & " is " & s.Level
        i = i + 1
    Next s
Else
    MsgBox "There are no subdocuments defined."
End If

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号