ListFormat.ApplyOutlineNumberDefault 方法 (Word)
默认的大纲编号方案向指定的 ListFormat 对象范围中的段落。
语法
expression。 ApplyOutlineNumberDefault
( _DefaultListBehavior_
)
expression 是必需的。 一个代表“ListFormat”对象的变量。
参数
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
DefaultListBehavior | 可选 | Variant | 设置一个值,指定是否 Microsoft Word 使用新的面向 Web 的格式更好的列表中显示。 可以是下列常量之一: wdWord8ListBehavior (使用与 Microsoft Word 97 兼容格式) 或 wdWord9ListBehavior (使用面向 Web 的格式)。 出于兼容性原因,默认常量 wdWord8ListBehavior ,但在新的过程,您应该使用 wdWord9ListBehavior 利用改进的面向 Web 的格式相对于缩进和多级列表中。 |
备注
如果段落中已经设置了多级符号列表的格式,该方法将清除这些原有的符号和格式。 该方法并不清除段落中已使用的内置标题样式。
示例
本示例为选定内容中的段落添加多级符号。 如果选定内容中已经有多级符号列表,本示例将清除其中已有的符号和格式。
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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。