应用于 ListFormat 对象的 ApplyListTemplate 方法。
为指定的 ListFormat 对象设置列表格式。
expression.ApplyListTemplate(ListTemplate, ContinuePreviousList, ApplyTo, DefaultListBehavior)
expression 必需。该表达式返回以上一个对象。
ListTemplate ListTemplate 对象,必需。指定应用的列表模板。
ContinuePreviousList Variant 类型,可选。如果设置为 True,则继续前一列表的编号;若设置为 False,则新建一个列表。
ApplyTo Variant 类型,可选。指定要使用列表模板的列表部分。可以是下列 WdListApplyTo 常量之一:wdListApplyToSelection、wdListApplyToWholeList 或 wdListApplyToThisPointForward。
DefaultListBehavior Variant 类型,可选。该设置值可指定 Microsoft Word 是否使用新的 Web 页格式,以便项目列表具有更好的显示效果。其值可取下列常量之一:wdWord8ListBehavior(使用与 Microsoft Word 97 兼容的格式)或 wdWord9ListBehavior(使用适于 Web 的格式)。考虑到兼容问题,默认值为 wdWord8ListBehavior。但是在新建过程中若要建立缩进式多级项目列表,应当使用 wdWord9ListBehavior,以利用改进过的适用于 Web 页的格式。
 
应用于 List 对象的 ApplyListTemplate 方法。
为指定的 List 对象设置列表格式。
expression.ApplyListTemplate(ListTemplate, ContinuePreviousList, DefaultListBehavior)
expression 必需。该表达式返回以上一个对象。
ListTemplate ListTemplate 对象,必需。指定应用的列表模板。
ContinuePreviousList Variant 类型,可选。如果设置为 True,则接续前一列表的编号;如果设置为 False,则新建一个列表。
DefaultListBehavior Variant 类型,可选。该设置值可指定 Microsoft Word 是否使用新的 Web 页格式,以便项目列表具有更好的显示效果。其值可取下列常量之一: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
本示例将 myList
设置为 MyDocument.doc 中的第四个列表,然后为此列表设置第三种项目符号列表模板格式。
Set myList = Documents("MyDocument.doc").Lists(4)
myList.ApplyListTemplate _
ListTemplate:=ListGalleries(wdBulletGallery).ListTemplates(3)
本示例将 myLstRange
设置为 MyDocument.doc 中第二段的列表格式,然后从该列表当前处开始应用第三种编号列表模板。
Set myLstRange = Documents("MyDocument.doc").Paragraphs(2) _
.Range.ListFormat
myLstRange.ApplyListTemplate _
ListTemplate:=ListGalleries(wdNumberGallery) _
.ListTemplates(3), _
ApplyTo:=wdListApplyToThisPointForward