返回介绍

ApplyBulletDefault 方法

发布于 2019-09-29 09:53:48 字数 1267 浏览 1289 评论 0 收藏 0

本方法为指定的 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

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文