Word VBA教程:ApplyListTemplate方法

应用于 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 页的格式。

 

VBA示例

当应用于 ListFormat对象时。

本示例将变量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

当应用于 List对象时。

本示例将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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号