Word) (Range.ComputeStatistics 方法
會傳回 Long ，代表指定之範圍的內容為基礎之統計資料。
語法
expression。 ComputeStatistics( _Statistic_ )
需要 expression。 代表 Range 物件的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| Statistic | 必要 | WdStatistic | 要計算之統計資料的類型 |
註解
您可能無法使用上述的某些常數，必須視您所選取或安裝的語言支援 (例如：美式英文) 而定。
Table.Cell 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."
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。