通过

Range.ComputeStatistics 方法 (Word)

  • 项目

返回一个 Long ，代表基于指定范围内容的统计值。

语法

expression。 ComputeStatistics( _Statistic_ )

expression 是必需的。 一个代表 Range 对象的变量。

参数

名称 必需/可选 数据类型 说明
Statistic 必需 WdStatistic 要计算的统计值的类型。

备注

由于您选择或安装的语言支持不同（例如美国英语），上述部分常量可能无法使用。

由于单元格末尾标记干扰了统计信息，为 Table.Cell Range 返回的统计信息将不准确。 截断 Range 以删除单元格结尾标记将生成正确的统计信息值。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。