Cum să căutați și să înlocuiți mai multe fișiere în word?

Dacă aveți câteva zeci de fișiere Word care conțin același conținut (cum ar fi Antet, subsol, unele cuvinte speciale sau număr) și trebuie să înlocuiți același conținut în documentele respective din Word. Cum ți-ar fi mai ușor să o faci rapid? Cu siguranță, puteți deschide acele fișiere unul câte unul pentru a înlocui același conținut, dar va fi consumator de timp și supărător. Acest tutorial vă va arăta un mod dificil de a înlocui același conținut în mai multe documente din Word simultan.

Găsiți și înlocuiți texte în mai multe documente Word în același timp cu cod VBA
Găsiți cu ușurință și înlocuiți diferite texte în mai multe documente în același timp cu Kutools pentru Word

Găsiți și înlocuiți texte în mai multe documente Word în același timp cu cod VBA

1. presa Alt + F11 pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module, apoi copiați următorul cod VBA în fereastra Module.

Cod VBA: căutarea și înlocuirea aceluiași conținut pe mai multe documente simultan

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. apasă pe F5 tasta pentru a rula codul.

4. În deschidere Naviga fereastra, găsiți și selectați documentele pe care le veți găsi și înlocuiți textul din interior, apoi faceți clic pe OK buton. Vedeți captura de ecran:

5. În prima Kutools pentru Cuvânt caseta de dialog, introduceți textul pe care îl veți găsi în documente în Gaseste ce , apoi faceți clic pe OK butonul.

6. În al doilea Kutools pentru Cuvânt caseta de dialog, introduceți textul cu care îl veți înlocui și faceți clic pe OK butonul.

8. Faceți clic pe OK butonul din următorul Microsoft Word casetă de dialog pentru a termina găsirea și înlocuirea.

În acest caz, toate cuvintele „Word” din documentele selectate sunt înlocuite cu „Excel” în același timp.

Găsiți cu ușurință și înlocuiți diferite texte în mai multe documente în același timp cu Kutools pentru Word

Aici recomandăm cu tărie Găsiți și înlocuiți în lot caracteristică a Kutools pentru Cuvânt. Cu această caracteristică, puteți găsi și înlocui cu ușurință diferite texte în mai multe documente Word în același timp. Să vedem cum să aplicăm această caracteristică pentru a găsi și a înlocui texte între documente.

Kutools pentru Cuvânt : cu mai mult de 100 de suplimente Word utile, liber să încercați fără limitări în 60 de zile.

1. Vă rugăm să faceți clic pe Kutools Plus > Găsiți și înlocuiți în lot pentru a activa caracteristica.

2. În Găsiți și înlocuiți în lot casetă de dialog, vă rugăm să configurați după cum urmează.

• 2.1) Faceți clic pe Adăugați Row buton sub Găsiți și înlocuiți filă;
• 2.2) În câmpurile de rând create:

• 2.3) Repetați pasul 2.1 și 2.2 pentru a adăuga mai multe texte pe care le veți găsi și înlocui;
• 2.4) Faceți clic pe  buton în Tip fișier secțiune pentru a adăuga documentele Word în care veți găsi și înlocui texte;
• 2.5) Faceți clic pe Înlocui or Găsi buton. Vedeți captura de ecran:

3. Închideți Găsiți și înlocuiți în lot Caseta de dialog

Pentru mai multe informații despre această caracteristică, vă rugăm Click aici....

Dacă doriți să aveți o încercare gratuită a acestui utilitar, vă rugăm să accesați descărcați gratuit software-ul mai întâi, apoi mergeți pentru a aplica operația conform pașilor de mai sus.

Instrumente de productivitate Word recomandate