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 支持和反馈,获取有关如何接收支持和提供反馈的指南。
反馈
https://aka.ms/ContentUserFeedback。
即将发布:在整个 2024 年,我们将逐步淘汰作为内容反馈机制的“GitHub 问题”,并将其取代为新的反馈系统。 有关详细信息,请参阅:提交和查看相关反馈