プログラムによってドキュメント内のテキストを検索および置換する

[アーティクル]
06/19/2023

Find オブジェクトは Selection および Range オブジェクトの両方のメンバーであり、どちらを使用しても Microsoft Office Word ドキュメント内のテキストを検索できます。 Replace コマンドは、Find コマンドの拡張機能です。

Find オブジェクトを使用して Microsoft Office Word ドキュメントをループ処理し、特定のテキスト、書式、またはスタイルを検索し、Replacement プロパティを使用して検出された項目を置き換えます。

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

Selection オブジェクトを使用する

テキストを検索するために Selection オブジェクトを使用する場合、指定する検索条件は現在選択されているテキストにしか適用されません。 Selection が挿入ポイントの場合は、ドキュメントが検索されます。検索条件に一致する項目が見つかった場合は、それが自動的に選択されます。

Find の条件は累積的、つまり、条件は前の検索条件に追加されることに注意することが重要です。検索の前に、ClearFormatting メソッドを使用して前の検索から書式をクリアします。

Selection オブジェクトを使用してテキストを検索するには

検索文字列を変数に代入します。

object findText = "find me";

Dim findText As String = "find me"

前の検索の書式をクリアします。

Application.Selection.Find.ClearFormatting();

Application.Selection.Find.ClearFormatting()

検索を実行し、結果を含むメッセージボックスを表示します。

if (Application.Selection.Find.Execute(ref findText,
    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("Text found.");
} 
else
{ 
    MessageBox.Show("The text could not be located.");
}

If Application.Selection.Find.Execute(findText) = True Then
    MessageBox.Show("Text found.")
Else
    MessageBox.Show("The text could not be located.")
End If

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

private void SelectionFind() 
{ 
    object findText = "find me";

    Application.Selection.Find.ClearFormatting();

    if (Application.Selection.Find.Execute(ref findText,
        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("Text found.");
    } 
    else
    { 
        MessageBox.Show("The text could not be located.");
    } 
}

Private Sub SelectionFind()
    Dim findText As String = "find me"

    Application.Selection.Find.ClearFormatting()

    If Application.Selection.Find.Execute(findText) = True Then
        MessageBox.Show("Text found.")
    Else
        MessageBox.Show("The text could not be located.")
    End If
End Sub

Range オブジェクトを使用する

Range オブジェクトを使用すると、ユーザーインターフェイスに何も表示せずにテキストを検索することができます。 Find オブジェクトは、検索条件に一致するテキストが検出された場合は True を返し、検出されない場合は False を返します。また、テキストが検出された場合は、検索条件を突き合わせる Range オブジェクトを再定義します。

Range オブジェクトを使用してテキストを検索するには

ドキュメントの 2 番目の段落で構成される Range オブジェクトを定義します。

次のコード例はドキュメントレベルのカスタマイズで使用できます。
- C#
- VB
```
Word.Range rng = this.Paragraphs[2].Range;
```
```
Dim rng As Word.Range = Me.Paragraphs(2).Range
```
次のコード例は VSTO アドインで使用できます。この例ではアクティブドキュメントを使用します。
- C#
- VB
```
Word.Document document = this.Application.ActiveDocument;
Word.Range rng = document.Paragraphs[2].Range;
```
```
Dim rng As Word.Range = Me.Application.ActiveDocument.Paragraphs(2).Range
```

Range オブジェクトの Find プロパティを使用して、まず、既存の書式オプションをクリアし、次に文字列 find me を検索します。

rng.Find.ClearFormatting();

if (rng.Find.Execute(ref findText,
    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)) 
{

rng.Find.ClearFormatting()

If rng.Find.Execute(findText) Then

メッセージボックスに検索結果を表示し、Range を選択してそれが見えるようにします。

    MessageBox.Show("Text found.");
} 
else 
{ 
    MessageBox.Show("Text not found.");
} 

rng.Select();

    MessageBox.Show("Text found.")
Else
    MessageBox.Show("Text not found.")
End If

rng.Select()

検索が失敗すると 2 番目の段落が選択されます。検索が成功すれば、検索結果が表示されます。

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

private void RangeFind() 
{ 
    object findText = "find me";

    Word.Range rng = this.Paragraphs[2].Range; 

    rng.Find.ClearFormatting();

    if (rng.Find.Execute(ref findText,
        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("Text found.");
    } 
    else 
    { 
        MessageBox.Show("Text not found.");
    } 

    rng.Select(); 
}

Private Sub RangeFind()
    Dim findText As String = "find me"

    Dim rng As Word.Range = Me.Paragraphs(2).Range

    rng.Find.ClearFormatting()

    If rng.Find.Execute(findText) Then
        MessageBox.Show("Text found.")
    Else
        MessageBox.Show("Text not found.")
    End If

    rng.Select()
End Sub

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

private void RangeFind()
{
    object findText = "find me";

    Word.Document document = this.Application.ActiveDocument;
    Word.Range rng = document.Paragraphs[2].Range;

    rng.Find.ClearFormatting();

    if (rng.Find.Execute(ref findText,
        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("Text found.");
    }
    else
    {
        MessageBox.Show("Text not found.");
    }

    rng.Select();
}

Private Sub RangeFind()
    Dim findText As Object = "find me"

    Dim rng As Word.Range = Me.Application.ActiveDocument.Paragraphs(2).Range

    rng.Find.ClearFormatting()

    If rng.Find.Execute(findText) Then
        MessageBox.Show("Text found.")
    Else
        MessageBox.Show("Text not found.")
    End If

    rng.Select()
End Sub

文書内のテキストを検索して置換する

次のコードでは、現在の選択範囲を検索し、文字列 find me のすべての出現箇所を文字列 Found に置き換えます。

ドキュメント内のテキストを検索し、置換するには

プロジェクトの ThisDocument または ThisAddIn クラスに次のコード例を追加します。

private void SearchReplace()
{
    Word.Find findObject = Application.Selection.Find;
    findObject.ClearFormatting();
    findObject.Text = "find me";
    findObject.Replacement.ClearFormatting();
    findObject.Replacement.Text = "Found";

    object replaceAll = Word.WdReplace.wdReplaceAll;
    findObject.Execute(ref missing, ref missing, ref missing, ref missing, ref missing,
        ref missing, ref missing, ref missing, ref missing, ref missing,
        ref replaceAll, ref missing, ref missing, ref missing, ref missing);
}

Private Sub SearchReplace()
    Dim FindObject As Word.Find = Application.Selection.Find
    With FindObject
        .ClearFormatting()
        .Text = "find me"
        .Replacement.ClearFormatting()
        .Replacement.Text = "Found"
        .Execute(Replace:=Word.WdReplace.wdReplaceAll)
    End With
End Sub

Find クラスには ClearFormatting メソッドがあり、Replacement クラスにも独自の ClearFormatting メソッドがあります。検索と置換の操作を実行している場合は、両方のオブジェクトの ClearFormatting メソッドを使用する必要があります。 Find オブジェクトでのみこのメソッドを使用すると、置換テキストで予想外の結果になる可能性があります。

検出された各項目を置換するには、Find オブジェクトの Execute メソッドを使用します。置換する項目を指定するには、Replace パラメーターを使用します。このパラメーターには、次の WdReplace 値のいずれかを指定できます。
- wdReplaceAll は検出されたすべての項目を置換します。
- wdReplaceNone 検出されたどの項目も置換しません。
- wdReplaceOne は検出された最初の項目を置換します。

次の方法で共有

プログラムによってドキュメント内のテキストを検索および置換する

Selection オブジェクトを使用する

Selection オブジェクトを使用してテキストを検索するには

Range オブジェクトを使用する

Range オブジェクトを使用してテキストを検索するには

文書内のテキストを検索して置換する

ドキュメント内のテキストを検索し、置換するには

フィードバック

その他のリソース

次の方法で共有

プログラムによってドキュメント内のテキストを検索および置換する

Selection オブジェクトを使用する

Selection オブジェクトを使用してテキストを検索するには

Range オブジェクトを使用する

Range オブジェクトを使用してテキストを検索するには

文書内のテキストを検索して置換する

ドキュメント内のテキストを検索し、置換するには

関連するコンテンツ

フィードバック

その他のリソース