通过

List.ApplyListTemplate Method

  • 项目
Word Developer Reference

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.

Visual Basic for Applications 
  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