ListFormat.SingleListTemplate Property (Word)
True if the entire ListFormat object uses the same list template. Read-only Boolean.
Syntax
expression .SingleListTemplate
expression Required. A variable that represents a ListFormat object.
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