Count Property

expression.Count

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