Les cookies nous permettent d'offrir nos services. En utilisant nos services, vous acceptez notre utilisation des cookies.
Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
Inscription
x

or

Comment rechercher et remplacer à travers plusieurs fichiers dans Word?

Si vous disposez de plusieurs dizaines de fichiers Word contenant le même contenu (tel que En-tête, pied de page, certains mots ou numéros spéciaux), 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 tutoriel va vous montrer une manière compliquée de remplacer le même contenu dans plusieurs documents dans Word à la fois.

Rechercher et remplacer des textes dans plusieurs documents Word en même temps avec le code VBA


Combiner / fusionner plusieurs documents en un seul facilement:

Le bouton Fusionner des documents utilité de Kutools for Word peut vous aider à combiner plusieurs documents en un rapidement. Vous avez juste besoin de:

  • Sélectionnez les documents que vous combinerez en un seul;
  • Spécifiez la rupture entre chaque document combiné;
  • Commencez à fusionner. Voir la capture d'écran:

Kutools for Word: avec plus de 100 compléments de Word pratique, libre d'essayer sans limitation dans les jours 30. Téléchargez et essai gratuit maintenant!

Kutools for Word: Ajouter 100 Nouvelles fonctionnalités avancées to Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Office Tab: Activer Édition à onglets et navigation dans Office, Tout comme Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu for Office: Apportez l'ancien look du bureau 2003 dans Office 2007, 2010, 2013, 2016 et 2019.

Rechercher et remplacer des textes dans 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érer > Module, 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 Feuilleter fenêtre, s'il vous plaît trouver et sélectionner les documents que vous trouverez et remplacer le texte à l'intérieur, puis cliquez sur le OK bouton. Voir la capture d'écran:

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

6. Dans la seconde Kutools for Word boîte de dialogue, entrez le texte à remplacer et cliquez sur 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.


Office Tab - Navigation par onglets, édition et gestion de plusieurs documents dans Word:

Office Tab présente l’interface à onglets comme celle des navigateurs Web tels que Google Chrome, les nouvelles versions d’Internet Explorer et Firefox pour Microsoft Word. Il va alors être un outil de gain de temps et irremplaçable dans votre travail. Voir ci-dessous la démo:

Cliquez pour l'essai gratuit de l'onglet Office!




Kutools for Word

Plus que des fonctions avancées 100 pour Word 2003, 2007, 2010, 2013, 2016 et 2019

coup-kutools-700-225-kte

Plus de fonctionnalités | Téléchargement Gratuit | Seulement $ 39.00 pour des centaines de fonctions

Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    martinadam · 1 months ago
    Thanks for sharing this information with us.
    Word search and replace tool
  • To post as a guest, your comment is unpublished.
    ankit saini · 2 months ago
    This is really good
  • To post as a guest, your comment is unpublished.
    nathalie · 3 months ago
    Works perfectly but is there a similar macro to change text in the header! because this does not work with this version!
    thanks
  • To post as a guest, your comment is unpublished.
    blds · 10 months ago
    Doesn't work for me on footers. e.g find FFSOSxxxx and replace with GGSOSxxxx, i can see this code is great for others pls help. :(
  • To post as a guest, your comment is unpublished.
    Kath · 11 months ago
    Hi there, is there a code for replacing with text that is multiple sentences, with bullet points and quotation marks in MS word using this code - which is fantastic !