次の方法で共有


Range.ComputeStatistics メソッド (Word)

を指定した範囲の内容に基づいて詳細情報を表す値を返します。

構文

ComputeStatistics( _Statistic_ )

が必要です。 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 のサポートおよびフィードバックを参照してください。