Comment : restaurer des sélections après des recherches

Si vous recherchez et remplacez du texte dans un document, il vous est possible de rétablir la sélection initiale de l'utilisateur une fois la recherche terminée.

S'applique à : Les informations contenues dans cette rubrique s'appliquent aux projets de niveau document et de niveau application pour Word 2007 et Word 2010. Pour en savoir plus, consultez Fonctionnalités disponibles par type d'application et de projet Office.

Dans l'exemple de procédure, le code utilise deux objets Range. L'un stocke la Selection actuelle, l'autre définit la totalité du document comme plage de recherche.

Pour rétablir la sélection initiale de l'utilisateur après une recherche

1. Créez les objets Range pour le document et la sélection actuelle.

   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. Exécutez l'opération de recherche et de remplacement.

   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. Sélectionnez la plage de départ pour rétablir la sélection initiale de l'utilisateur.

   start.Select()
   

   start.Select(); 
   

L'exemple suivant illustre la méthode complète.

Exemple

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

Voir aussi

Tâches

Comment : rechercher et remplacer du texte dans les documents

Comment : rechercher du texte dans les documents

Comment : définir les options de recherche dans Word

Comment : parcourir les éléments trouvés dans les documents

Concepts

Paramètres optionnels dans les solutions Office