Count Property

Returns the number of items in the specified collection. Read-only Long.

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

Example

This example displays the number of paragraphs in the active document.

MsgBox "The active document contains " & _
    ActiveDocument.Paragraphs.Count  & "paragraphs."

This example displays the number of words in the selection.

If Selection.Words.Count >= 1 And _
        Selection.Type <> wdSelectionIP Then
    MsgBox "The selection contains " & Selection.Words.Count _
        & " words."
End If

This example uses the aFields() array to store the field codes in the active document.

fcount = ActiveDocument.Fields.Count
If fcount >= 1 Then
    ReDim aFields(fcount)
    For Each aField In ActiveDocument.Fields
        aFields(aField.Index) = aField.Code.Text
    Next aField
End If