Word VBA教程:ApplyOutlineNumberDefault方法

本方法为指定的 ListFormat对象向区域中的段落添加默认的多级符号格式。如果段落中已经设置了多级符号列表的格式,本方法将清除这些原有的符号和格式。

expression.ApplyOutlineNumberDefault(DefaultListBehavior)

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

DefaultListBehavior   Variant 类型,可选。该设置值可指定 Microsoft Word 是否使用新的 Web 页格式,以便项目列表具有更好的显示效果。其值可取下列常量之一:wdWord8ListBehavior(使用与 Microsoft Word 97 兼容的格式)或 wdWord9ListBehavior(使用适于 Web 的格式)。考虑到兼容问题,默认值为 wdWord8ListBehavior。但是在新建过程中若要建立缩进式多级项目列表,应当使用 wdWord9ListBehavior,以利用改进过的适用于 Web 页的格式。

说明

本方法并不清除段落中已使用的内置标题样式。

VBA示例

本示例为选定内容中的段落添加多级符号。如果选定内容中已经有多级符号列表,本示例将清除其中已有的符号和格式。


Selection.Range.ListFormat.ApplyOutlineNumberDefault

本示例将myRange 变量设置为系列值,包括活动文档的第三段到第六段,然后其检查系列中是否包含列表格式。如果该区域中没有列表格式,则设置为默认的多级符号列表格式。


Set myDoc = ActiveDocument
Set myRange = myDoc.Range( _
    Start:= myDoc.Paragraphs(3).Range.Start, _
    End:=myDoc.Paragraphs(6).Range.End)
If myRange.ListFormat.ListType = wdListNoNumbering Then
    myRange.ListFormat.ApplyOutlineNumberDefault
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号