Метод Range.ComputeStatistics (Word)

Статья
04/07/2023

Возвращает значение Long , представляющее статистику на основе содержимого указанного диапазона.

Синтаксис

выражение. ComputeStatistics( _Statistic_ )

выражение (обязательно). Переменная, представляющая объект Range .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Статистика	Обязательный	WdStatistic	Тип вычисляемой статистики.

Замечания

Некоторые из перечисленных выше констант могут быть недоступны в зависимости от выбранной или установленной языковой поддержки (например, английский язык США).

Значение Statistic, возвращаемое для диапазона Table.Cell, будет неточным из-за того, что маркер конца ячейки вмешивается в статистику. Усечение диапазона для удаления маркера конца ячейки приведет к правильному значению статистики.

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

Пример

В этом примере отображается количество слов и символов в первом абзаце 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."

См. также

Объект Range

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через