ListFormat.ApplyBulletDefault 方法 (Word)

  • 项目

添加项目符号和格式应用于指定的 ListFormat 对象范围中的段落。

语法

expression。 ApplyBulletDefault( _DefaultListBehavior_ )

expression 是必需的。 一个代表“ListFormat”对象的变量。

参数

名称 必需/可选 数据类型 说明
DefaultListBehavior 可选 Variant 设置一个值，指定是否 Microsoft Word 使用新的面向 Web 的格式更好的列表中显示。 可以是下列常量之一: wdWord8ListBehavior (使用与 Microsoft Word 97 兼容格式) 或 wdWord9ListBehavior (使用面向 Web 的格式)。 出于兼容性原因，默认常量 wdWord8ListBehavior ，但在新的过程，您应该使用 wdWord9ListBehavior 利用改进的面向 Web 的格式相对于缩进和多级列表中。

备注

如果该段落已经设置了项目符号，则该方法将清除其中已有的项目符号和格式。

示例

本示例实现的功能是：为选定内容中的段落添加项目符号并设置格式。 如果在选定内容中已经设置了项目符号，本示例将清除其原有的项目符号和格式。

Selection.Range.ListFormat.ApplyBulletDefault

本示例向 MyDoc.doc 中的第二段添加一个项目符号并设置格式。如果该段落已经设置了项目符号，本示例将清除其原有的项目符号和格式。

Documents("MyDoc.doc").Paragraphs(2).Range.ListFormat _ 
 .ApplyBulletDefault

本示例将变量 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.ApplyBulletDefault 
End If

另请参阅

ListFormat 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。