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