Document.ListTemplates (Word)
Returns a ListTemplates collection that represents all the list formats for the specified document.
For information about returning a single member of a collection, see Returning an object from a collection. The ListTemplates property is a member of the Document, ListGallery, and Template objects.
Msgbox ActiveDocument.ListTemplates.Count