Question

全部显示

应用于 HeadingStyle 对象的 Level 属性。

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

expression.Level

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

应用于 Subdocument 对象的 Level 属性。

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

expression.Level

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

示例

当应用于 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