2 façons rapides de trouver plusieurs éléments dans un document Word en même temps

Dans cet article, nous nous concentrons sur la présentation de deux méthodes rapides pour trouver plusieurs éléments simultanément dans un document Word.

Quiconque connaît Word doit bien connaître l'option "Rechercher et remplacer". Cela fonctionne bien lorsque le texte de recherche est une chaîne consécutive. Mais, malheureusement, cela se complique lorsque nous voulons rechercher plusieurs mots distincts en même temps. Et là-bas, la demande est forte pour supprimer une liste de mots ou de phrases dans un document en un seul mouvement. Par exemple, si vous êtes un éditeur, il peut y avoir quelques mots qui ne devraient jamais apparaître dans un document. Si tel est le cas, vous aurez besoin de solutions de contournement pour marquer l'occurrence de certains mots spécifiques.

Voici 2 solutions disponibles :

Méthode 1 : importer des mots dans le dictionnaire d'exclusion

Ajoutez un groupe de mots ou de phrases au dictionnaire d'exclusion dans Word, puis une ligne ondulée rouge apparaîtra sous les mots correspondants pour les signaler.

Les étapes détaillées pour ajouter des mots au dictionnaire d'exclusion se trouvent dans cet article : 4 conseils utiles pour l'orthographe des mots et le vérificateur de grammaire

Méthode 2 : Utiliser la macro Word

1. Avant toute chose, rassemblez tous les mots-clés de votre recherche dans un seul document. Chaque mot ou expression doit occuper un paragraphe. Appelons ce document « document liste ». Enregistrez-le.
2. Deuxièmement, cliquez sur l'onglet "Développeur".
3. Cliquez ensuite sur "Visual Basic" pour ouvrir l'éditeur VBA. L'alternative consiste à appuyer sur "Alt + F11".
4. Cliquez ensuite sur "Normal" puis sur l'onglet "Insérer".
5. Et choisissez "Module" dans le menu.
6. Double-cliquez sur nouveau module pour faire apparaître la zone d'édition et collez-y la macro suivante :

Sub FindMultiItemsInDoc()
  Dim objListDoc As Document
  Dim objTargetDoc As Document
  Dim objParaRange As Range, objFoundRange As Range
  Dim objParagraph As Paragraph
  Dim strFileName As String

  strFileName = InputBox("Enter the full name of the list document here:")
 
  Set objTargetDoc = ActiveDocument
  Set objListDoc = Documents.Open(strFileName)
  objTargetDoc.Activate
 
  For Each objParagraph In objListDoc.Paragraphs
    Set objParaRange = objParagraph.Range
    objParaRange.End = objParaRange.End - 1
 
      With Selection
        .HomeKey Unit:=wdStory
 
        '  Find target items.
        With Selection.Find
          .ClearFormatting
          .Text = objParaRange
          .MatchWholeWord = True
          .MatchCase = False
          .Execute
        End With
 
        '  Highlight the found items.
        Do While .Find.Found
          Set objFoundRange = Selection.Range
          objFoundRange.HighlightColorIndex = wdBrightGreen
          .Collapse wdCollapseEnd
          .Find.Execute
        Loop
      End With
  Next objParagraph
End Sub

7. Enfin, cliquez sur "Exécuter".
8. Maintenant, il y a une boîte. Entrez le chemin et le nom du document de liste que vous venez d'enregistrer. Cliquez ensuite sur "OK".

La prochaine chose que vous voyez est que tous les mots trouvés sont en surbrillance.

Sécurisez vos documents Word

L'une des mesures les plus courantes pour éviter la corruption de vos documents Word consiste à effectuer des sauvegardes. Elles vous apportent une tranquillité d'esprit en cas de problème. docx endommagé. Alors, prenez votre temps pour sauvegarder vos fichiers importants dès maintenant.

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 xlsx corrompu et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com