Método Range.ComputeStatistics (Word)

Retorna um Long que representa uma estatística com base no conteúdo do intervalo especificado.

Sintaxe

expression. ComputeStatistics( _Statistic_ )

expressão Obrigatório. Uma variável que representa um objeto Range.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Statistic	Obrigatório	WdStatistic	O tipo de estatística a ser calculado.

Comentários

Algumas constantes listadas acima podem não estar disponíveis para você, dependendo do suporte a idioma (por exemplo, português do Brasil) que tiver sido selecionado ou instalado.

A Estatística retornada para Table.Cell Range será imprecisa devido ao marcador de fim de célula interferir na Estatística. Truncar o Intervalo para remover o marcador de fim de célula resultará no valor estatístico correto.

Set cell = Documents("Report.doc").Tables(1).Cell(1, 1)
Set myRange = cell.Range
lineCount = myRange.ComputeStatistics(Statistic:=wdStatisticLines) 'Returns 0
rng.MoveEnd wdCharacter, -1 
lineCount = myRange.ComputeStatistics(Statistic:=wdStatisticLines)
MsgBox "The first cell contains " & lineCount _ 
 & " lines."

Exemplo

Este exemplo exibe a quantidade de palavras e caracteres no primeiro parágrafo de Report.doc.

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

Confira também

Objeto Range

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.