プログラムによって、ドキュメント内の見つかった項目をループ処理する

Find クラスには、Found プロパティがあります。これは、検索対象の項目が見つかるたびに true を返します。 Range メソッドを使用して、 Execute 内で見つかったすべてのインスタンスをループできます。

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

見つかった項目をループするには

1. Range オブジェクトを宣言します。

   次のコード例はドキュメント レベルのカスタマイズで使用できます。

   C#

   Word.Range rng = this.Content;
   

   VB

   Dim rng As Word.Range = Me.Content
   

   次のコード例は VSTO アドインで使用できます。 この例ではアクティブ ドキュメントを使用します。

   C#

   Word.Document document = this.Application.ActiveDocument;
   Word.Range rng = document.Content;
   

   VB

   Dim rng As Word.Range = Me.Application.ActiveDocument.Content
   

2. ループ内で Found プロパティを使用し、文書内に出現する特定の文字列をすべて検索して、文字列が見つかるたびに整数値を 1 ずつインクリメントします。

   C#

   rng.Find.ClearFormatting(); 
   rng.Find.Forward = true; 
   rng.Find.Text = "find me"; 
   
   rng.Find.Execute(
       ref missing, ref missing, ref missing, ref missing, ref missing, 
       ref missing, ref missing, ref missing, ref missing, ref missing,
       ref missing, ref missing, ref missing, ref missing, ref missing);
   
   while (rng.Find.Found) 
   { 
       intFound++;
       rng.Find.Execute(
           ref missing, ref missing, ref missing, ref missing, ref missing, 
           ref missing, ref missing, ref missing, ref missing, ref missing,
           ref missing, ref missing, ref missing, ref missing, ref missing);
   }
   

   VB

   rng.Find.ClearFormatting()
   rng.Find.Forward = True
   rng.Find.Text = "find me"
   
   rng.Find.Execute()
   
   Do While rng.Find.Found = True
       intFound += 1
       rng.Find.Execute()
   Loop
   

3. 文字列が見つかった回数をメッセージ ボックスに表示します。

   C#

   MessageBox.Show("Strings found: " + intFound.ToString());
   

   VB

   MessageBox.Show("Strings found: " & intFound.ToString())
   

   このメソッドを使ったサンプル コード全体を次に示します。

ドキュメント レベルのカスタマイズの例

ドキュメント レベルのカスタマイズの項目をループするには

1. 次の例は、ドキュメント レベルのカスタマイズのコード全体を示しています。 このコードを使用するには、プロジェクトの ThisDocument クラスから実行します。

   C#

   private void FindLoop() 
   { 
       int intFound = 0; 
       Word.Range rng = this.Content; 
   
       rng.Find.ClearFormatting(); 
       rng.Find.Forward = true; 
       rng.Find.Text = "find me"; 
   
       rng.Find.Execute(
           ref missing, ref missing, ref missing, ref missing, ref missing, 
           ref missing, ref missing, ref missing, ref missing, ref missing,
           ref missing, ref missing, ref missing, ref missing, ref missing);
   
       while (rng.Find.Found) 
       { 
           intFound++;
           rng.Find.Execute(
               ref missing, ref missing, ref missing, ref missing, ref missing, 
               ref missing, ref missing, ref missing, ref missing, ref missing,
               ref missing, ref missing, ref missing, ref missing, ref missing);
       } 
   
       MessageBox.Show("Strings found: " + intFound.ToString()); 
   }
   

   VB

   Private Sub FindLoop()
       Dim intFound As Integer = 0
       Dim rng As Word.Range = Me.Content
   
       rng.Find.ClearFormatting()
       rng.Find.Forward = True
       rng.Find.Text = "find me"
   
       rng.Find.Execute()
   
       Do While rng.Find.Found = True
           intFound += 1
           rng.Find.Execute()
       Loop
   
       MessageBox.Show("Strings found: " & intFound.ToString())
   End Sub
   

VSTO アドインの例

VSTO アドインの項目をループするには

1. 次の例は、VSTO アドインのコード全体を示しています。 このコードを使用するには、プロジェクトの ThisAddIn クラスから実行します。

   C#

   private void FindLoop()
   {
       int intFound = 0;
       Word.Document document = this.Application.ActiveDocument;
       Word.Range rng = document.Content;
   
       rng.Find.ClearFormatting();
       rng.Find.Forward = true;
       rng.Find.Text = "find me";
   
       rng.Find.Execute(
           ref missing, ref missing, ref missing, ref missing, ref missing,
           ref missing, ref missing, ref missing, ref missing, ref missing,
           ref missing, ref missing, ref missing, ref missing, ref missing);
   
       while (rng.Find.Found)
       {
           intFound++;
           rng.Find.Execute(
               ref missing, ref missing, ref missing, ref missing, ref missing,
               ref missing, ref missing, ref missing, ref missing, ref missing,
               ref missing, ref missing, ref missing, ref missing, ref missing);
       }
   
       MessageBox.Show("Strings found: " + intFound.ToString());
   }
   

   VB

   Private Sub FindLoop()
       Dim intFound As Integer = 0
       Dim rng As Word.Range = Me.Application.ActiveDocument.Content
   
       rng.Find.ClearFormatting()
       rng.Find.Forward = True
       rng.Find.Text = "find me"
   
       rng.Find.Execute()
   
       Do While rng.Find.Found = True
           intFound += 1
           rng.Find.Execute()
       Loop
   
       MessageBox.Show("Strings found: " & intFound.ToString())
   End Sub
   

関連するコンテンツ

• 方法: プログラムによって文書内のテキストを検索および置換する
• 方法: プログラムによって Word の検索オプションを設定する
• 方法: プログラムによって文書に複数の範囲を定義して選択する
• 方法: プログラムによって検索後に選択範囲を復元する
• Office ソリューションの省略可能なパラメーター