Método Range.ComputeStatistics (Word)
Devuelve un Long que representa una estadística basada en el contenido del intervalo especificado.
Sintaxis
expresión. ComputeStatistics( _Statistic_ )
expresión requerida. Variable que representa un objeto Range.
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Statistic | Obligatorio | WdStatistic | El tipo de estadística que se calculará. |
Comentarios
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.
La estadística devuelta para Table.Cell Range será inexacta debido a que el marcador de final de celda interfiere con la estadística. Truncar el rango para quitar el final del marcador de celda dará como resultado el valor estadístico correcto.
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."
Ejemplo:
En este ejemplo se muestra el número de palabras y caracteres en el primer párrafo 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."
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.