ListFormat.CountNumberedItems (Word)

Returns the number of bulleted or numbered items and LISTNUM fields in the specified ListFormat object.

CountNumberedItems (NumberType, Level)

Selection.Range.ListFormat.ApplyListTemplate _ 
    ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(2) 
Msgbox ActiveDocument.CountNumberedItems

Arguments

Optional arguments

The following arguments are optional

NumberType - WdNumberType

Possible return values are wdNumberAllNumbers - Default value for all other cases, wdNumberListNum - Default value for LISTNUM fields, wdNumberParagraph - Preset numbers you can add to paragraphs by selecting a template in the Bullets and Numbering dialog box.

Level - Byte