次の方法で共有


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

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

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

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

ドキュメント レベルのカスタマイズの文字数を表示するには

  1. 文書全体を選択します。

    Dim rng As Word.Range = Me.Range(0, Me.Characters.Count)
    rng.Select()
    
    Word.Range rng = this.Content; 
    rng.Select(); 
    
  2. 文書内の文字数をメッセージ ボックスに表示します。

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

アプリケーション レベルのアドインの文字数を表示するには

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

    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();
    
  2. 文書内の文字数をメッセージ ボックスに表示します。

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

参照

処理手順

方法: 範囲の開始文字と終了文字をプログラムによって取得する

方法: プログラムによって文書に複数の範囲を定義して選択する