SingleList Property 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