HOW TO：在搜尋後還原選取

如果在文件中尋找和取代文字，您可能想要在完成搜尋後，還原使用者原來的選取範圍。

**適用於：**本主題中的資訊適用於 Word 2007 和 Word 2010 的文件層級專案和應用程式層級專案。如需詳細資訊，請參閱依 Office 應用程式和專案類型提供的功能。

範例程序中的程式碼使用兩個 Range 物件。 一個儲存目前的 Selection，另一個則設定整份文件用來做為搜尋範圍。

若要在搜尋之後還原使用者原來的選取範圍

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

請參閱

工作

HOW TO：搜尋和取代文件中的文字

HOW TO：在文件中搜尋文字

HOW TO：在 Word 中設定搜尋選項

HOW TO：在文件中找到的項目之間執行迴圈

概念

Office 方案中的選擇性參數