Word VBA教程:ComputeStatistics方法

应用于 Range对象的 ComputeStatistics方法。

返回基于指定范围内容的统计值。Long 类型。

expression.ComputeStatistics(Statistic)

expression   必需。该表达式返回以上一个对象。

Statistic  WdStatistic,必需。

WdStatistic 可以是下列 WdStatistic 常量之一:
wdStatisticCharacters
wdStatisticCharactersWithSpaces
wdStatisticFarEastCharacters
wdStatisticLines
wdStatisticPages
wdStatisticParagraphs
wdStatisticWords

 

应用于 Document对象的 ComputeStatistics方法。

返回基于指定文档内容的统计值。Long 类型。

expression.ComputeStatistics(Statistic, IncludeFootnotesAndEndnotes)

expression   必需。该表达式返回以上的一个对象。

Statistic  WdStatistic,必需。

WdStatistic 可以是下列 WdStatistic 常量之一:
wdStatisticCharacters
wdStatisticCharactersWithSpaces
wdStatisticFarEastCharacters
wdStatisticLines
wdStatisticPages
wdStatisticParagraphs
wdStatisticWords

IncludeFootnotesAndEndnotes  Variant 类型,可选。如果为 True,则统计时将包括脚注和尾注;如果省略该参数,则默认值为 False。

 

说明

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

VBA示例

当应用于 Range对象时。

本示例显示 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."

当应用于 Document对象时。

本示例显示活动文档的字数(包括脚注)。


MsgBox _
    ActiveDocument.ComputeStatistics(Statistic:=wdStatisticWords, _
    IncludeFootnotesAndEndnotes:=True) & " words"

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号