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