方法 : 文書の文字数をカウントする

更新 : 2007 年 11 月

対象
このトピックの情報は、指定された Visual Studio Tools for Office プロジェクトおよび Microsoft Office のバージョンにのみ適用されます。プロジェクトの種類ドキュメントレベルのプロジェクトアプリケーションレベルのプロジェクト Microsoft Office のバージョン Word 2003 Word 2007 詳細については、「アプリケーションおよびプロジェクトの種類別の使用可能な機能」を参照してください。

このトピックの情報は、指定された Visual Studio Tools for Office プロジェクトおよび Microsoft Office のバージョンにのみ適用されます。

プロジェクトの種類

Microsoft Office のバージョン

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

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

文書全体を選択します。

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());

参照