ListFormat.CountNumberedItems method (Word)

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

Syntax

expression. CountNumberedItems

expression A variable that represents a 'ListFormat' object.

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 counts the number of LISTNUM fields in the variable myRange. The result is displayed in a message box.

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

See also

ListFormat Object

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.