SingleListTemplate Property

True if the entire List or ListFormat object uses the same list template. Read-only Boolean.

expression   Required. An expression that returns one of the objects in the Applies To list.

Example

This example checks to see whether the selection is formatted with a single list template. If so, the example applies the second numbered list template to the selection.

Set myList = Selection.Range.ListFormat
temp = myList.SingleListTemplate
If temp = True Then
    myList.ApplyListTemplate _
        ListTemplate:=ListGalleries(wdNumberGallery) _
        .ListTemplates(2)
End If