方法: プログラムによって検索後に選択範囲を復元する

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

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

サンプル プロシージャのコードでは、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 ソリューションの省略可能なパラメーター