List.ApplyListTemplate method (Word)

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

Syntax

expression. ApplyListTemplate( _ListTemplate_ , _ContinuePreviousList_ , _ApplyTo_ , _DefaultListBehavior_ )

expression Required. A variable that represents a 'List' object.

Parameters

Name Required/Optional Data type Description
ListTemplate Required ListTemplate 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: wdListSelection , wdListWholeList , or wdListThisPointForward .
DefaultListBehavior Optional Variant Sets a value that specifies whether Microsoft Word uses new Web-oriented formatting for better list display. Can be either of the following WdDefaultListBehavior constants: wdWord8ListBehavior (use formatting compatible with Microsoft Word 97) or wdWord9ListBehavior (use Web-oriented formatting). For compatibility reasons, the default constant is wdWord8ListBehavior , but in new procedures you should use wdWord9ListBehavior to take advantage of improved Web-oriented formatting with respect to indenting and multilevel lists.

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

See also

List Object