Utilisez l'objet Find pour rechercher du texte, une mise en forme ou un style spécifique dans un document Microsoft Office Word 2003, puis utilisez l'objet Replacement pour remplacer l'un des éléments trouvés.
Le code suivant recherche une sélection et remplace toutes les occurrences de la chaîne find me par la chaîne Found.
Exemple
Private Sub SearchReplace()
Application.Selection.Find.ClearFormatting()
Application.Selection.Find.Text = "find me"
Application.Selection.Find.Replacement.ClearFormatting()
Application.Selection.Find.Replacement.Text = "Found"
Application.Selection.Find.Execute(Replace:=Word.WdReplace.wdReplaceAll)
End Sub
private void SearchReplace()
{
object replaceAll = Word.WdReplace.wdReplaceAll;
Application.Selection.Find.ClearFormatting();
Application.Selection.Find.Text = "find me";
Application.Selection.Find.Replacement.ClearFormatting();
Application.Selection.Find.Replacement.Text = "Found";
Application.Selection.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);
}
Compilation du code
L'objet Find a une méthode ClearFormatting et l'objet Replacement a également sa propre méthode ClearFormatting. Lorsque vous procédez à des opérations de recherche et remplacement, vous devez utiliser la méthode ClearFormatting des deux objets. Si vous ne l'utilisez que pour l'opération Find, vous risquez d'obtenir des résultats inattendus.
Utilisez la méthode Execute pour remplacer chaque élément trouvé. La méthode Execute possède une énumération WdReplace qui consiste en trois énumérations supplémentaires :
Voir aussi