CountNumberedItems Method

Applies To

Document object, List object, ListFormat object.

Description

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

Syntax

expression.CountNumberedItems(NumberType, Level)

expression Required. An expression that returns a Document, List, or ListFormat object.

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.

See Also

ListLevelNumber property.

Example

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 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

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