Range.ComputeStatistics (Word)

Devuelve un Long que representa una estadística basada en el contenido del intervalo especificado.

Algunas de las constantes indicadas anteriormente pueden no estar disponibles, según la compatibilidad de idioma, por ejemplo, Inglés (EE.UU.), que se haya seleccionado o instalado.

ComputeStatistics (Statistic)

Statistic: El tipo de estadística que se calculará.

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."