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

  • [アーティクル]

更新 : 2007 年 11 月

対象

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

プロジェクトの種類

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

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

Microsoft Office のバージョン

  • Word 2003

  • Word 2007

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

文書内のテキストの検索置換を行う場合は、検索が完了した後で、ユーザーの元の選択範囲に戻すことができます。

サンプル プロシージャのコードでは、2 つの Range オブジェクトが使用されています。1 つは現在の Selection を格納し、もう 1 つは文書全体を検索範囲として設定します。

検索後に元の選択範囲を復元するには

  1. 文書と現在の選択範囲に対応する Range オブジェクトを作成します。

    Dim start As Word.Range = Application.Selection.Range
Dim searchArea As Word.Range = Application.ActiveDocument.Range

    Word.Range start = Application.Selection.Range; 
Word.Range searchArea = Application.ActiveDocument.Range(ref missing, ref missing);

  2. 検索置換の処理を実行します。

    searchArea.Find.ClearFormatting()
searchArea.Find.Text = "find me"

searchArea.Find.Replacement.ClearFormatting()
searchArea.Find.Replacement.Text = "Found"

searchArea.Find.Execute(Replace:=Word.WdReplace.wdReplaceAll)

    searchArea.Find.ClearFormatting(); 
searchArea.Find.Text = "find me"; 

searchArea.Find.Replacement.ClearFormatting(); 
searchArea.Find.Replacement.Text = "Found"; 

object replaceAll = Word.WdReplace.wdReplaceAll; 

searchArea.Find.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);

  3. ユーザーの元の選択範囲を復元する開始範囲を選択します。

    start.Select()

    start.Select();

完全なメソッドの例を次に示します。

使用例

Friend Sub ReplaceRestoreSelection()
    Dim start As Word.Range = Application.Selection.Range
    Dim searchArea As Word.Range = Application.ActiveDocument.Range

    searchArea.Find.ClearFormatting()
    searchArea.Find.Text = "find me"

    searchArea.Find.Replacement.ClearFormatting()
    searchArea.Find.Replacement.Text = "Found"

    searchArea.Find.Execute(Replace:=Word.WdReplace.wdReplaceAll)

    start.Select()
End Sub

internal void ReplaceRestoreSelection() 
{ 
    Word.Range start = Application.Selection.Range; 
    Word.Range searchArea = Application.ActiveDocument.Range(ref missing, ref missing); 

    searchArea.Find.ClearFormatting(); 
    searchArea.Find.Text = "find me"; 

    searchArea.Find.Replacement.ClearFormatting(); 
    searchArea.Find.Replacement.Text = "Found"; 

    object replaceAll = Word.WdReplace.wdReplaceAll; 

    searchArea.Find.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);

    start.Select(); 
}

参照

処理手順

方法 : ドキュメント内のテキストを検索および置換する

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

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

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

概念

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