or ListFormat
object uses the same list template. Read-only Boolean.
expression.SingleListTemplate
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