ListFormat.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 ListFormat object.
Parameters
Name |
Required/Optional |
Data Type |
Description |
|---|---|---|---|
ListTemplate |
Required |
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