Document.Lists (Word)

Returns a Lists collection that contains all the formatted lists in the specified document.

For information about returning a single member of a collection, see Returning an object from a collection.

Selection.Range.ListFormat.ApplyListTemplate _ 
 ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(2) 
MsgBox "This document has " & ActiveDocument.Lists.Count _ 
 & " lists."