2 façons rapides de rechercher ou de supprimer des phrases contenant un texte spécifique dans votre mot

Dans cet article, nous vous proposerons 2 moyens rapides pour rechercher ou supprimer des phrases contenant du texte spécifique dans votre Word.

Il est bien connu que la fonction « Rechercher et remplacer » de Word permet de trouver facilement toutes les occurrences d'un mot ou d'une expression. On peut ensuite les sélectionner, les remplacer ou les supprimer sans difficulté. Aujourd'hui, nous sommes ravis de vous présenter une méthode utilisant une macro pour trouver ou supprimer des phrases contenant un texte spécifique.

Méthode 1 : Rechercher ou supprimer des phrases contenant un texte spécifique

1. Pour commencer, appuyez sur "Alt + F11" pour déclencher l'éditeur VBA dans Word.
2. Créez ensuite un nouveau module en cliquant sur "Normal".
3. Cliquez ensuite sur "Insérer" et choisissez "Module" pour en obtenir un nouveau.
4. Et ouvrez le module avec un double clic.
5. Collez maintenant les codes suivants :

Sub DeleteSentencesContainingSpecificWords()
  Dim strTexts As String
  Dim strButtonValue As String
 
  strTexts = InputBox("Enter texts to be found here: ")
 
  With Selection
    .HomeKey Unit:=wdStory
 
    '  Find the entered texts.
    With Selection.Find
      .ClearFormatting
      .Text = strTexts
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
 
    Do While .Find.Found = True
      '  Expand the selection to the entire sentence.
      Selection.Expand Unit:=wdSentence
      strButtonValue = MsgBox("Are you sure to delete the sentence?", vbYesNo)
      If strButtonValue = vbYes Then
        Selection.Delete
      End If
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
  End With
End Sub

6. Cliquez ensuite sur "Exécuter".
7. Il y aura une zone de saisie, vous demandant de saisir du texte. Tapez simplement le texte commun que contiennent toutes les phrases. Cliquez sur OK".
8. Ensuite, vous verrez une phrase contenant le texte sélectionné avec une boîte de message qui s'affiche. Cliquez sur "Oui" pour supprimer la phrase et sur "Non" pour la conserver.
9. Après confirmation, la phrase suivante contenant le texte désigné est sélectionnée. Une boîte de dialogue de confirmation s'affiche également. Concrètement, la macro vous guide pas à pas dans l'ensemble du document, en recherchant les phrases cibles et en vous demandant une confirmation à chaque fois.

Méthode 2 : Rechercher ou supprimer des phrases contenant n'importe quel texte sur une liste

Avec la macro de la méthode 1, vous ne pouvez rechercher qu'un seul mot ou une seule phrase à la fois. Certes, vous pouvez exécuter la macro à plusieurs reprises pour rechercher plusieurs instances de mots ou de phrases. Pour répondre au besoin de recherche multiple, nous vous fournirons une autre macro.

1. Commencez par placer tous les textes cibles dans un nouveau document. Veillez à ce que chaque texte occupe un paragraphe entier, sans espace à la fin. Fermez et enregistrez le document.
2. Ensuite, installez et exécutez une macro avec les étapes exactes de la méthode 1.
3. Remplacez ensuite macro par celle-ci :

Sub DeleteSentencesContainingSpecificWordsOnAList()
  Dim objListDoc As Document, objTargetDoc As Document
  Dim objParaRange As Range
  Dim objParagraph As Paragraph
  Dim strFileName As String, strButtonValue As String
  Dim dlgFile As FileDialog
 
  Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)
 
  With dlgFile
    If .Show = -1 Then
      strFileName = .SelectedItems(1)
    Else
      MsgBox "No file is selected! Please select the target file."
      Exit Sub
    End If
  End With
  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 words.
      With Selection.Find
        .ClearFormatting
        .Text = objParaRange
        .MatchWholeWord = True
        .MatchCase = False
        .Execute
      End With
 
      '  Expand the selection to the entire sentence.
      Do While .Find.Found
        Selection.Expand Unit:=wdSentence
        strButtonValue = MsgBox("Are you sure to delete the sentence?", vbYesNo)
        If strButtonValue = vbYes Then
          Selection.Delete
        End If
        .Collapse wdCollapseEnd
        .Find.Execute
      Loop
    End With
  Next objParagraph
End Sub

4. Maintenant, la fenêtre "Parcourir" s'ouvrira. Choisissez le document que vous venez d'enregistrer et cliquez sur "Ouvrir".
5. La procédure suivante est identique à celle de la méthode 1.

Approche pour traiter les documents corrompus

La perte de données précieuses est absolument dévastatrice. Cela peut même laisser votre entreprise en jeu. Pour éviter une telle frustration, vous devez vous procurer un Correction de mot outil dès que possible. Un tel outil vous aidera à gagner la bataille contre la corruption de documents.

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