4 méthodes utiles pour rechercher et remplacer du texte dans une partie d'un document Word

Dans ce document, nous sommes heureux de vous montrer 4 méthodes utiles pour rechercher et remplacer du texte dans une partie d'un document Word.

Normalement, lorsque nous effectuons le "Rechercher et remplacer" dans Word, l'effet est global. Ainsi, aujourd'hui, nous voulons vous proposer des moyens de rechercher et de remplacer du texte dans une partie d'un document, comme dans une sélection, une seule page ou une section spécifique.

Méthode 1 : Utiliser la fonctionnalité "Rechercher et remplacer" dans une sélection

1. Tout d'abord, sélectionnez tarobtenir du texte.
2. Deuxièmement, appuyez sur "Ctrl + H" pour ouvrir la boîte "Rechercher et remplacer".
3. Entrez ensuite le texte de recherche dans la zone de texte "Rechercher quoi" et le texte de remplacement dans la zone "Remplacer par".
4. Cliquez ensuite sur le bouton "Remplacer tout".
5. Une boîte apparaîtra, vous demandant si vous voulez continuer à faire la recherche sur le reste d'un document. Assurez-vous de cliquer sur "Non".

Méthode 2 : exécuter des codes VBA pour rechercher et remplacer du texte dans une sélection

1. Tout d'abord, sélectionnez une plage de contenu de document.
2. Déclenchez ensuite l'éditeur VBA en appuyant sur "Alt + F11".
3. Cliquez ensuite sur "Normal" et cliquez sur "Insérer".
4. Choisissez "Module" dans le menu.
5. Ouvrez maintenant le module avec un double clic.
6. Copiez et collez-y les codes suivants :

Sub FindAndReplaceInSelection()
  Dim strFindText As String
  Dim strReplaceText As String
 
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

7. Appuyez ensuite sur "F5".
8. Deux zones de saisie s'afficheront. Entrez le texte de recherche et de remplacement respectivement dans deux cases.
9. Cliquez sur "OK" pour continuer.

Vous obtiendrez exactement le même effet que dans la méthode 1.

Méthode 3 : exécuter une macro Word pour rechercher et remplacer du texte sur une page désignée

La macro suivante vous permet de rechercher et de remplacer du texte sur une page spécifique.

1. Tout d'abord, installez et exécutez une macro en suivant les étapes de la méthode 2.
2. Remplacez ensuite cette macro par celle-ci :

Sub FindAndReplaceInSpecificPage()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strPageNum As String
  Dim nPageNum As Integer
 
  strPageNum = InputBox("Enter a page number: ")
  nPageNum = Int(strPageNum)
 
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
  ActiveDocument.Bookmarks("\page").Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. Après avoir exécuté ces codes, il y aura 3 champs de saisie. Entrez un numéro de page dans la première case, saisissez le texte de recherche dans la seconde et saisissez le texte de remplacement dans la troisième.
4. N'oubliez pas de cliquer sur "OK" pour continuer.

Méthode 4 : exécuter une macro Word pour rechercher et remplacer du texte dans une section

1. De même, suivez les mêmes étapes dans la méthode 2 pour installer et exécuter une macro.
2. Seulement cette fois, utilisez cette macro à la place :

Sub FindAndReplaceInSection()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strSectionNum As String
  Dim nSectionNum As Integer
 
  strSectionNum = InputBox("Enter a section number: ")
  nSectionNum = Int(strSectionNum)
 
  Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=1, Name:=nSectionNum
  ActiveDocument.Sections(nSectionNum).Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. N'oubliez pas d'inscrire le numéro de section dans la première case. Et entrez la recherche et le remplacement des textes dans les deux cases suivantes.
4. Cliquez tout de même sur "OK" pour continuer.

Faire face aux problèmes de mots

De nombreux types de problèmes peuvent survenir dans votre document. Certains sont faciles à manipuler, tandis que d'autres sont plus sévères, ce qui peut entraîner des Corruption de mots. Dans un tel scénario, vous devez obtenir un outil de réparation dès que possible pour sauver vos données.

Introduction de l'auteur:

Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris Correctif Excel et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com