ListFormat.SingleList Property (Word)
True if the specified ListFormat object contains only one list. Read-only Boolean.
Syntax
expression .SingleList
expression An expression that returns a ListFormat object.
Example
This example checks the selection to see whether it only contains one list. If it does, the example applies the default numbered list template to the selection.
temp = Selection.Range.ListFormat.SingleList
If temp = True Then
Selection.Range.ListFormat.ApplyNumberDefault
End If