通过

List.CountNumberedItems Method

  • 项目
Word Developer Reference

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

Syntax

expression.CountNumberedItems

expression   A variable that represents a List 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.

Visual Basic for Applications 
  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.

Visual Basic for Applications 
  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.

Visual Basic for Applications 
  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