List.ApplyListTemplateWithLevel 方法 (Word)
(可选)对指定级别应用一组列表格式特征。
语法
expression。 ApplyListTemplateWithLevel
( _ListTemplate_
, _ContinuePreviousList_
, _DefaultListBehavior_
, _ApplyLevel_
)
表达 一个代表“List”对象的变量。
参数
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
ListTemplate | 必需 | ListTemplate | 要应用的列表模板。 |
ContinuePreviousList | 可选 | Variant | 如此 继续编排页码从前面的列表; 假 以启动一个新的列表。 |
DefaultListBehavior | 可选 | Variant | 设置一个值,指定是否 Microsoft Word 使用新的面向 Web 的格式更好的列表中显示。 可以是下列的 WdDefaultListBehavior 常量: wdWord8ListBehavior (使用与 Microsoft Word 97 兼容格式) 或 wdWord9ListBehavior (使用面向 Web 的格式)。 出于兼容性原因,默认常量 wdWord8ListBehavior ,但在新的过程中应使用 wdWord9ListBehavior 来利用改进的面向 Web 的格式设置缩进和多级列表。 |
ApplyLevel | 可选 | Variant | 要应用列表模板的级别。 |
示例
以下示例将 变量 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 支持和反馈,获取有关如何接收支持和提供反馈的指南。