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