Paragraphs.Count (Word)

Returns a Long that represents the number of paragraphs in the collection.

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