CountNumberedItems Method

Microsoft Word Visual Basic

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

expression.CountNumberedItems(NumberType, Level)

expression    Required. An expression that returns one of the objects in the Applies To list.

NumberType    Optional Variant. The type of numbers to be counted. Can be one of the following WdNumberType constants: wdNumberParagraph, wdNumberListNum, or wdNumberAllNumbers. The default value is wdNumberAllNumbers.

Level    Optional Variant. A number that corresponds to the numbering level you want to count. If this argument is omitted, all levels are counted.

Remarks

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.

Example

ShowAs applies to the ListFormat object.

This example formats the current selection as a list, using the second numbered list template. The example then counts the numbered and bulleted items and LISTNUM fields in the active document and displays the result in a message box.

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

This example counts the number of first-level numbered or bulleted items in the active document.

Msgbox ActiveDocument.Content.ListFormat _
    .CountNumberedItems(Level:=1)
				

This example counts the number of LISTNUM fields in the variable myRange. The result is displayed in a message box.

Set myDoc = ActiveDocument
Set myRange = _
    myDoc.Range(Start:=myDoc.Paragraphs(12).Range.Start, _
    End:=myDoc.Paragraphs(50).Range.End)
numfields = myRange.ListFormat.CountNumberedItems(wdNumberListNum)
Msgbox numfields
				

ShowAs applies to the List object.

This example displays a message box that reports the number of items in each list in MyLetter.

i = 1
Set myDoc = Documents("MyLetter.doc")
For Each li In myDoc.Lists
    Msgbox "List " & i & " has " _
        & li.CountNumberedItems & " items."
    i = i + 1
Next li