Range.ComputeStatistics (Word)

Returns a Long that represents a statistic based on the contents of the specified range.

Some of the constants listed above may not be available to you, depending on the language support (U.S. English, for example) that you've selected or installed.

ComputeStatistics (Statistic)

Statistic: The type of statistic to compute.

Set myRange = Documents("Report.doc").Paragraphs(1).Range 
wordCount = myRange.ComputeStatistics(Statistic:=wdStatisticWords) 
charCount = myRange.ComputeStatistics(Statistic:=wdStatisticCharacters) 
MsgBox "The first paragraph contains " & wordCount _ 
 & " words and a total of " & charCount & " characters."