List.ApplyListTemplate 方法 (Word)

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

语法

表达式。ApplyListTemplate (ListTemplate、 ContinuePreviousList、 ApplyTo、 DefaultListBehavior)

expression 是必需的。 一个代表 List 对象的变量。

参数

名称	必需/可选	数据类型	说明
ListTemplate	必需	ListTemplate	要应用的列表模板。
ContinuePreviousList	可选	Variant	如此 继续编排页码从前面的列表; 假 以启动一个新的列表。
ApplyTo	可选	Variant	要应用于列表模板的列表部分。 可以是以下 WdListApplyTo 常量之一： wdListApplyToSelection、 wdListApplyToWholeList 或 wdListApplyToThisPointForward。
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

支持和反馈

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