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

Objeto Range

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.