List.CountNumberedItems (Word)

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

Syntax : expression.CountNumberedItems (NumberType, Level)

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

Arguments

The following arguments are optional

NumberType - WdNumberType

Possible 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