Microsoft Office Forums - View Single Post - [Solved] Multilevel list level 6 not restarting after level 5

Charles Kenyon · 04-16-2022, 02:33 PM

My macro, in the revised document, shows 1 list and 22 list templates.

Code:

Sub NumberOfLists()
    ' Charles Kenyon  16 April 2022
    MsgBox ActiveDocument.Lists.Count, title:="List Count"
    MsgBox ActiveDocument.ListTemplates.Count, title:="List Template Count"
End Sub

In a new blank document, the same macro shows 0 lists and 0 list templates.
In your originally posted document it showed 2 lists and 22 list templates.