Note: The other languages of the website are Google-translated. Back to English
Mon Compte  \/ 
x
or
x
S’enregistrer  \/ 
x

or

Comment rechercher et remplacer plusieurs fichiers dans Word?

Si vous disposez de plusieurs dizaines de fichiers de mots qui contiennent le même contenu (tel qu'un en-tête, un pied de page, des mots ou un nombre spéciaux) et que vous devez remplacer le même contenu dans ces documents dans Word. Comment serait-il plus facile pour vous de le faire rapidement? Certes, vous pouvez ouvrir ces fichiers un par un pour remplacer le même contenu, mais cela prendra du temps et sera gênant. Ce didacticiel vous montrera un moyen délicat de remplacer le même contenu dans plusieurs documents dans Word à la fois.

Recherchez et remplacez des textes sur plusieurs documents Word en même temps avec le code VBA
Trouvez et remplacez facilement différents textes sur plusieurs documents en même temps avec Kutools for Word


Recherchez et remplacez des textes sur plusieurs documents Word en même temps avec le code VBA

1. presse autre + F11 ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérerModule, puis copiez le code VBA suivant dans la fenêtre Module.

Code VBA: recherche et remplacement du même contenu sur plusieurs documents à la fois

Sub CommandButton1_Click()
'Updated by Extendoffice 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
Dim xFindStr As String
Dim xReplaceStr As String
Dim xDoc As Document
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With xFileDialog
    .Filters.Clear
    .Filters.Add "All WORD File ", "*.docx", 1
    .AllowMultiSelect = True
    i = 1
    If .Show = -1 Then
        For Each stiSelectedItem In .SelectedItems
            GetStr(i) = stiSelectedItem
            i = i + 1
        Next
        i = i - 1
    End If
    Application.ScreenUpdating = False
    xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr)
    xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr)
    For j = 1 To i Step 1
        Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)
        Windows(GetStr(j)).Activate
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = xFindStr  'Find What
            .Replacement.Text = xReplaceStr  'Replace With
            .Forward = True
            .Wrap = wdFindAsk
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
        Application.Run macroname:="NEWMACROS"
        ActiveDocument.Save
        ActiveWindow.Close
    Next
    Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub

3. appuie sur le F5 clé pour exécuter le code.

4. Dans l'ouverture DECOUVREZ , recherchez et sélectionnez les documents dans lesquels vous trouverez et remplacez le texte, puis cliquez sur le OK bouton. Voir la capture d'écran:

5. Dans le premier Kutools pour Word boîte de dialogue, entrez le texte que vous trouverez dans les documents dans le Trouvez ce que , puis cliquez sur le OK .

6. Dans le second Kutools pour Word boîte de dialogue, entrez le texte par lequel vous allez remplacer et cliquez sur le OK .

8. Cliquez sur l' OK bouton dans le prochain Microsoft Word boîte de dialogue pour terminer la recherche et le remplacement.

Dans ce cas, tous les mots «Word» dans les documents sélectionnés sont remplacés par «Excel» en même temps.


Trouvez et remplacez facilement différents textes sur plusieurs documents en même temps avec Kutools for Word

Ici, je recommande vivement le Rechercher et remplacer par lots caractéristique de Kutools pour Word. Avec cette fonctionnalité, vous pouvez facilement rechercher et remplacer différents textes dans plusieurs documents Word en même temps. Voyons comment appliquer cette fonctionnalité pour rechercher et remplacer des textes dans des documents.

Kutools pour Word : avec plus de 100 compléments Word pratiques, gratuit pour essayer sans limitation dans 60 jours.

1. Veuillez cliquer Kutools Plus > Rechercher et remplacer par lots pour activer la fonctionnalité.

2. dans le Rechercher et remplacer par lots boîte de dialogue, veuillez configurer comme suit.

  • 2.1) Cliquez sur le Ajouter une rangée bouton sous Rechercher et remplacer languette;
  • 2.2) Dans les champs de ligne créés:
A. Entrez le texte que vous trouverez dans la zone de texte du Trouvez colonne
B. Saisissez le texte par lequel vous allez remplacer dans la zone de texte du remplacer colonne;
C. Spécifiez un type de recherche, où trouver le texte et une couleur pour mettre en évidence le texte selon vos besoins. Dans ce cas, je sélectionne Correspondance complète des mots, Document principal et une certaine couleur du Type de recherche, Retrouver dans et Surligner Colonnes;
  • 2.3) Répétez les étapes 2.1 et 2.2 pour ajouter plus de textes que vous trouverez et remplacer;
  • 2.4) Cliquez sur le  bouton dans le Type de fichier section pour ajouter les documents Word dans lesquels vous trouverez et remplacez des textes;
  • 2.5) Cliquez sur le remplacer or Trouvez bouton. Voir la capture d'écran:

Notes:
1. Si vous cliquez sur le Trouvez bouton, tous les résultats de recherche seront affichés sous le Résultat de la prévisualisation languette. Après avoir prévisualisé les résultats, si vous souhaitez remplacer tous les textes, cliquez sur le bouton Rechercher et remplacer languette. Sinon, fermez la boîte de dialogue.

2. Si vous cliquez sur le remplacer bouton, tous les textes spécifiés seront remplacés par de nouveaux immédiatement, et les résultats seront également affichés sous le Résultat de la prévisualisation languette.

3. Si vous spécifiez des couleurs de surbrillance à l'étape 2, tous les textes remplacés seront mis en surbrillance avec les couleurs spécifiées et vous pourrez facilement les trouver en un coup d'œil dans les documents.

3. Fermer la Rechercher et remplacer par lots boîte de dialogue

Pour plus d'informations sur cette fonctionnalité, veuillez Cliquez ici ....

Si vous souhaitez avoir un essai gratuit de cet utilitaire, rendez-vous sur télécharger gratuitement le logiciel d'abord, puis appliquez l'opération selon les étapes ci-dessus.



Outils de productivité Word recommandés

 

Kutools For Word - Plus de 100 fonctionnalités avancées pour Word, économisez 50% de votre temps

  • Les opérations compliquées et répétées peuvent être effectuées une seule fois en quelques secondes.
  • Insérez simultanément plusieurs images dans des dossiers dans un document Word.
  • Fusionner et combiner plusieurs fichiers Word dans des dossiers en un seul avec l'ordre souhaité.
  • Divisez le document actuel en documents séparés selon l'en-tête, le saut de section ou d'autres critères.
  • Convertissez des fichiers entre Doc et Docx, Docx et PDF, collection d'outils pour les conversions et la sélection courantes, etc.

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jebidiah Springfield · 7 years ago
    Wow you are a saint for putting this macro together! I am listening to 'Epic Battle Music' on Songza because I am such an amatuer Macro-smith and it's the only way I can make it through the pain and agony of crafting programming spells.

    Anyway, my point I am going to make is a spent a lot of time on Friday troubleshooting the part where you actually put in the text you want to find and putting in the text you want to replace - I did not quite understand this part in terms of where I put my "find" word text and "replace" word text:

    [quote]Note:you can change the Text = "search”, Replacement.Text = "find” to specify the content to be searched and the content to be applied for replacement.
    [/quote]

    I read over this again today and I wish to respectfully clarify for other programming non-initiates - in the section of VBA where you have copied and pasted the original programming language, make sure you put an end ' after the [i]what [/i] and a ' after the [i]with[/i] (see example below) - in my example, I am looking for multiple documents to replace Pizza with Stromboli:

    .Text = "Pizza" 'Find What'
    .Replacement.Text = "Stromboli" 'Replace With'
  • To post as a guest, your comment is unpublished.
    James R · 7 years ago
    Could this VBA technique be adapted to work for Publisher files? For example by changing *.docx to *.pub ?
  • To post as a guest, your comment is unpublished.
    Patrick · 7 years ago
    When you run the macro, the "Open" window will open. Navigate to the folder that contains the files you need to make the change to, then click once on the first one, then, while holding down the "Ctrl" key, click on the other files also requiring the find/replace. If all files in the folder need the action, just press the "Ctrl" and "A" keys. Then click on "Open" or press the "Enter" key, and the macro will begin.

    I should warn you, as I've performed this dozens of times at work: The macro will result in the changes being made only to the *body* of the Word document; headers, footers, and title text/alt-text will be excluded. If you have text in the aforementioned portions that needs replacing, you will have to perform a standard find/replace across individual documents.
  • To post as a guest, your comment is unpublished.
    Alison Pepper · 7 years ago
    Yes I have the same question as i think this would be useful but want to tell it to only look in certain folders.
  • To post as a guest, your comment is unpublished.
    Bobette · 7 years ago
    Will it ask where the documents in question are located? Or do all the documents need to be open?
    • To post as a guest, your comment is unpublished.
      PatrickRsGhost · 6 years ago
      When you run it, by default it will open up the "Open File" dialogue window to "My Documents". Navigate to the folder that contains the Word files you wish to make the changes to. You can press "Ctrl" + "A" to select all files, or hold down the "Ctrl" key while selecting certain files. Click on "Open" or press "Enter" and watch the magic happen.