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