Document.CountNumberedItems (Word)
Returns the number of bulleted or numbered items and LISTNUM fields in the specified Document object.
Bulleted items are counted when either wdNumberParagraph or wdNumberAllNumbers (the default) is specified for NumberType. There are two types of numbers: preset numbers (wdNumberParagraph), which you can add to paragraphs by selecting a template in the Bullets and Numbering dialog box; and LISTNUM fields (wdNumberListNum), which allow you to add more than one number per paragraph.
CountNumberedItems (NumberType, Level)
Dim lngCountNumberedItems As Long
lngCountNumberedItems = ActiveDocument.CountNumberedItems()
Arguments
Optional arguments
The following arguments are optional
NumberType (WdNumberType) - The type of numbers to be counted. Can be one of the WdNumberType constants. The default value is wdNumberAllNumbers.
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 (Long) - A number that corresponds to the numbering level you want to count. If this argument is omitted, all levels are counted.