方法: プログラムによって文書内の文字数をカウントする

文書内の最初の文字の文字位置は 0 です (文字位置は、カーソル位置を表します)。最後の文字位置は、その文書の合計文字数と同じです。Characters コレクションの Count プロパティを使用して、文書内の文字数を調べることができます。

スペースや段落記号など、通常は非表示の文字を含む、文書内のすべての文字がカウントされます。新規の空白文書でも 1 文字がカウントされます。これは段落記号が含まれるためです。

対象: このトピックの情報は、Word 2013 と Word 2010 のドキュメントレベルのプロジェクトおよびアプリケーションレベルのプロジェクトに適用されます。詳細については、「Office アプリケーションおよびプロジェクトタイプ別の使用可能な機能」を参照してください。

文書全体を選択します。

Dim rng As Word.Range = Me.Range(0, Me.Characters.Count)
rng.Select()

Word.Range rng = this.Content; 
rng.Select();

文書内の文字数をメッセージボックスに表示します。

MessageBox.Show("Characters: " & Me.Characters.Count.ToString())

MessageBox.Show("Characters: " + this.Characters.Count.ToString());

文書全体を選択します。次の例では、アクティブ文書を選択します。

Dim rng As Word.Range = Me.Application.ActiveDocument.Range( _
    0, Me.Application.ActiveDocument.Characters.Count)
rng.Select()

Word.Range rng = this.Application.ActiveDocument.Content;
rng.Select();

文書内の文字数をメッセージボックスに表示します。

MessageBox.Show("Characters: " & Me.Application.ActiveDocument.Characters.Count.ToString())

MessageBox.Show("Characters: " + 
    this.Application.ActiveDocument.Characters.Count.ToString());

参照