ListFormat.ApplyListTemplate 方法 (Word)

  • 项目

适用于指定的 ListFormat 对象的一组列表格式特征。

语法

expression。 ApplyListTemplate( _ListTemplate_ , _ContinuePreviousList_ , _ApplyTo_ , _DefaultListBehavior_ )

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

参数

名称 必需/可选 数据类型 说明
ListTemplate 必需 ListTemplate 要应用的列表模板。
ContinuePreviousList 可选 Variant 如此 继续编排页码从前面的列表; 假 以启动一个新的列表。
ApplyTo 可选 Variant 要应用于列表模板的列表部分。 可以是下列的 WdListApplyTo 常量之一: wdListSelection 、 wdListWholeList 或 wdListThisPointForward 。
DefaultListBehavior 可选 Variant 设置一个值，指定是否 Microsoft Word 使用新的面向 Web 的格式更好的列表中显示。 可以是下列的 WdDefaultListBehavior 常量: wdWord8ListBehavior (使用与 Microsoft Word 97 兼容格式) 或 wdWord9ListBehavior (使用面向 Web 的格式)。 出于兼容性原因，默认常量 wdWord8ListBehavior ，但在新的过程，您应该使用 wdWord9ListBehavior 利用改进的面向 Web 的格式相对于缩进和多级列表中。

示例

本示例将变量 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.ApplyListTemplate _ 
 ListTemplate:=ListGalleries(wdOutlineNumberGallery) _ 
 .ListTemplates(4) 
End If

另请参阅

ListFormat 对象

支持和反馈

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