次の方法で共有

方法 : 文書で見つかった項目をループする

  • [アーティクル]

更新 : 2007 年 11 月

対象

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

プロジェクトの種類

  • ドキュメント レベルのプロジェクト

  • アプリケーション レベルのプロジェクト

Microsoft Office のバージョン

  • Word 2003

  • Word 2007

詳細については、「アプリケーションおよびプロジェクトの種類別の使用可能な機能」を参照してください。

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

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

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

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

    Dim rng As Word.Range = Me.Content

    Word.Range rng = this.Content;

    次のコード例はアプリケーション レベルのアドインで使用できます。この例ではアクティブ ドキュメントを使用します。

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

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

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

    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

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

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

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

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

このメソッドの完全なコードは次のようになります。

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

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

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

    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

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

アプリケーション レベルのアドインの例

アプリケーション レベルのアドインの項目をループ処理するには

  • 次の例は、アプリケーション レベルのアドインの完全なコードを示しています。このコードを使用するには、プロジェクトの ThisAddIn クラスから実行します。

    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

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

参照

処理手順

方法 : 文書内のテキストを検索する

方法 : Word の検索オプションを設定する

方法 : 文書に複数の範囲を定義して選択する

方法 : 検索後に選択範囲を復元する

概念

Office ソリューションの省略可能なパラメータについて