ApplyListTemplate Method

Applies To

List object, ListFormat object.

Description

Applies a set of list-formatting characteristics to the specified List or ListFormat object.

Syntax 1

expression.ApplyListTemplate(ListTemplate, ContinuePreviousList)

Syntax 2

expression.ApplyListTemplate(ListTemplate, ContinuePreviousList, ApplyTo)

expression Syntax 1: Required. An expression that returns a List object. Syntax 2: Required. An expression that returns a ListFormat object.

ListTemplate Required ListTemplate object. The list template to be applied.

ContinuePreviousList Optional Variant. True to continue the numbering from the previous list; False to start a new list.

ApplyTo Optional Variant. The portion of the list that the list template is to be applied to. Can be one of the following WdListApplyTo constants: wdListApplyToSelection, wdListApplyToWholeList, or wdListApplyToThisPointForward.

See Also

CanContinuePreviousList method, ListTemplate object.

Example

This example sets the variable myRange to a range in the active document, and then it checks to see whether the range has list formatting. If no list formatting has been applied, the fourth outline-numbered list template is applied to the range.

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

This example sets the variable myList to the fourth list in MyDocument.doc, and then it applies the third bulleted list template to the list.

Set myList = Documents("MyDocument.doc").Lists(4)
myList.ApplyListTemplate _
    ListTemplate:=ListGalleries(wdBulletGallery).ListTemplates(3)

This example sets the variable myLstRange to the list formatting in the second paragraph of MyDocument.doc. The example then applies the third numbered list template from that point forward in the list.

Set myLstRange = Documents("MyDocument.doc").Paragraphs(2).Range.ListFormat
myLstRange.ApplyListTemplate _
    ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(3), _
    ApplyTo:=wdListApplyToThisPointForward