Kuinka etsiä ja korvata useita tiedostoja Wordissa?

Jos sinulla on kymmeniä Word-tiedostoja, jotka sisältävät samaa sisältöä (kuten otsikoita, alatunnisteita tai tiettyä tekstiä), ja sinun on vaihdettava tämä sisältö kaikissa asiakirjoissa, sen tekeminen manuaalisesti voi olla työlästä. Tämä opetusohjelma esittelee kaksi tapaa vaihtaa nopeasti sama tai eri sisältö useissa Word-asiakirjoissa kerralla.

Etsi ja korvaa tekstejä useista Word-asiakirjoista samanaikaisesti VBA-koodilla
Löydä ja korvaa helposti erilaisia ​​tekstejä useista asiakirjoista samanaikaisesti Kutools for Wordin avulla

Etsi ja korvaa tekstejä useista Word-asiakirjoista samanaikaisesti VBA-koodilla

Tämä menetelmä näyttää, kuinka VBA-koodia käytetään sisällön etsimiseen ja korvaamiseen useista asiakirjoista samanaikaisesti.

1. lehdistö Alt + F11 avataksesi Microsoft Visual Basic for Applications -ikkunan.
2. Napsauta "Lisää" > "Moduuli" ja liitä sitten seuraava koodi:

   Sub CommandButton1_Click()
   'Updated by Extendoffice 20180625
   Dim xFileDialog As FileDialog, GetStr(1 To 100) As String
   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
               .Replacement.Text = xReplaceStr
               .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
           ActiveDocument.Save
           ActiveWindow.Close
       Next
       Application.ScreenUpdating = True
   End With
   MsgBox "Operation end, please view", vbInformation
   End Sub

3. lehdistö F5 suorittaaksesi koodin.
4. Valitse Selaa-ikkunassa asiakirjat, jotka haluat käsitellä, ja napsauta sitten "OK".

   

5. Kirjoita Etsi mitä -syöttöruutuun etsittävä sana tai lause ja napsauta "OK".

   

6. Kirjoita "Korvaa"-syöttöruutuun korvaava teksti ja napsauta "OK".

   

7. Napsauta "OK" lopullisessa Microsoft Word -valintaikkunassa.

   

Valittujen Word-tiedostojen määritetyn tekstin kaikki esiintymät korvataan kerralla.

Löydä ja korvaa helposti erilaisia ​​tekstejä useista asiakirjoista samanaikaisesti Kutools for Wordin avulla

"Eräetsi ja korvaa" -ominaisuus sisään Kutools for Word voit etsiä ja korvata useita tekstikohteita useista Word-asiakirjoista kerralla.

1. Napsauta "Kutools" > "Erän vaihto".

   

2. Määritä Erähaku ja korvaa -valintaikkunassa asetukset:
   1. Napsauta "Lisää rivi" -painiketta.
   2. Uudella rivillä:
      1. Kirjoita etsittävä teksti kohtaan "Etsi".
      2. Kirjoita korvaava teksti kohtaan "Korvaa".
      3. Määritä halutessasi hakutyyppi, haku- ja korvauspaikka, korosta väri ja muut tarvittavat vaihtoehdot vastaavissa sarakkeissa.
   3. Valitse -painiketta "Tiedostotyyppi"-osiossa lisätäksesi Word-tiedostoja erän.
   4. Napsauta "Korvaa" tai "Etsi".
      Vihje: Toista vaiheet 1) ja 2) lisätäksesi lisää etsi ja korvaa -sääntöjä.

      

3. Sulje Erähaku ja korvaa -valintaikkuna, kun olet valmis.

Jos haluat lisätietoja "Eräetsi ja korvaa" -ominaisuudesta, katso opetusohjelmasivua.

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Paranna sanakokemustasi Overilla 100 Merkittäviä ominaisuuksia!

🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super Polish (säilytettävä muoto) / Super Translate (säilytä muoto) / AI editointi / AI Proofread...

📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Vie valikoima eri muodoissa (PDF/TXT/DOC/HTML...) / Erämuunnos PDF-muotoon...

✏ Sisältö Editointi: Eräetsi ja korvaa useita tiedostoja / Muuta kaikkien kuvien kokoa / Transponoi taulukon rivit ja sarakkeet / Muunna taulukko tekstiksi...

🧹 Vaivaton puhdistus: Pyyhkäise pois Ylimääräiset tilat / Leikkaukset / Tekstilaatikot / Hyperlinkit / Jos haluat lisää irrotustyökaluja, siirry kohtaan poista ryhmä...

➕ Luovat lisäosat: Aseta Tuhat erottimet / Valintaruudut / Radiopainikkeet / QR koodi / Viivakoodi / Useita kuvia / Tutustu lisää osoitteessa liite ryhmä...

🔍 Tarkkuusvalinnat: Tarkka kohta Tietyt sivut / taulukot / Muodot / Otsikko Kappaleet / Paranna navigointia lisää valita piirteet...

⭐ Tähtien parannukset: Siirry mihin tahansa sijaintiin / Lisää toistuvaa tekstiä automaattisesti / Vaihda asiakirjaikkunoiden välillä / 11 Muuntaminen Työkalut...

???? Haluatko kokeilla näitä ominaisuuksia? Lataa Kutools for Word nyt! 🚀

Ilmainen lataus     Osta nyt     Lue lisää Kutools for Wordista

 

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Yli 100 Wordin työkalua

• 🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super puolalainen / Super käännös / AI editointi / AI Proofread
• 📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Erämuunnos PDF-muotoon
• ✏ Sisältö Editointi: Erä Etsi ja korvaa / Muuta kaikkien kuvien kokoa
• 🧹 Vaivaton puhdistus: Poista ylimääräiset välilyönnit / Poista osion katkokset
• ➕ Luovat lisäosat: Aseta Tuhat erottimet / Lisää valintaruudut / Luo QR-koodeja

Ilmainen lataus Osta nyt Lue lisää Kutoolsista