Kako najti in zamenjati besedilo v Wordovem dokumentu iz Excela?

V Wordovem dokumentu lahko uporabimo funkcijo Najdi in zamenjaj za hitro iskanje in zamenjavo enega besedila. Če pa je treba poiskati in zamenjati več besedil, bo vnos besedila enega za drugim v funkcijo Najdi in zamenjaj zamuden. V tem primeru lahko besedila za iskanje in zamenjavo vnesete v seznam celic in s pomočjo kode VBA v Excelu to opravilo enostavno opravite. V tem članku bom predstavil tudi uporabno funkcijo za skupinsko iskanje in zamenjavo besedil v več Wordovih dokumentih.

Poiščite in zamenjajte več besedil v enem Wordovem dokumentu iz Excela s kodo VBA

Poiščite in zamenjajte več besedil v več Wordovih dokumentih iz Excela s kodo VBA

Poiščite in zamenjajte več besedil v več Wordovih dokumentih z zmogljivo funkcijo

Poiščite in zamenjajte več besedil v enem Wordovem dokumentu iz Excela s kodo VBA

Če želite najti in zamenjati nekatera besedila v samo eni Wordovi datoteki, vam lahko naslednja koda VBA naredi uslugo.

1. V Excelovem delovnem listu ustvarite stolpec z besedili, ki jih želite poiskati in zamenjati, in drug stolpec z besedili, ki jih želite zamenjati, kot je prikazano na spodnjem posnetku zaslona. In nato pritisnite Alt + F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno.

2. Nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo VBA v okno.

Koda VBA: Poiščite in zamenjajte več besedil v eni datoteki Word

Sub replace_texts_range_of_cells()
'Updateby ExtendOffice
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFileDlg As FileDialog
On Error GoTo ExitSub
Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = False
xFileDlg.Filters.Add "Word Document", "*.docx; *.doc; *.docm"
xFileDlg.FilterIndex = 2
If xFileDlg.Show <> -1 Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges):", "Kutools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
  (xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
Set xDoc = xWordApp.Documents.Open(xFileDlg.SelectedItems.Item(1))
For I = 1 To xRng.Areas.Item(1).Cells.Count
  With xDoc.Application.Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = xRng.Areas.Item(1).Cells.Item(I).Value
    .Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
Next
ExitSub:
  Set xRng = Nothing
  Set xFileDlg = Nothing
  Set xWordApp = Nothing
  Set xDoc = Nothing
End Sub

3. Ko prilepite kodo, še vedno v Microsoft Visual Basic za aplikacije okno, kliknite Orodja > Reference, glej posnetek zaslona:

4. V izpuščenem Reference - VBAProject v pogovornem oknu izberite Knjižnica predmetov Microsoft Word 16.0 iz polja s seznamom si oglejte posnetek zaslona:

5. Kliknite OK gumb, da zaprete pogovorno okno, in zdaj pritisnite F5 za zagon te kode, v pojavnem oknu za brskanje izberite Wordovo datoteko, s katero želite zamenjati besedila, glejte posnetek zaslona:

6. Nato kliknite OK, v naslednjem pogovornem oknu pritisnite Ctrl tipko za ločeno izbiro izvirnega besedila in novih besedilnih celic, ki jih želite uporabiti, glejte sliko zaslona:

7. In nato kliknite OK zdaj so besedila najdena in nadomeščena z novimi besedili v vašem določenem dokumentu, datoteka pa se prav tako odpira, shranite jo, da ohranite spremembe.

Poiščite in zamenjajte več besedil v več Wordovih dokumentih iz Excela s kodo VBA

Tukaj ustvarim tudi kodo VBA za iskanje in zamenjavo več besedil v več Wordovih dokumentih, naredite takole:

1. Odprite Excelovo datoteko, ki vsebuje dva stolpca vrednosti, ki jih želite zamenjati, in zamenjajte z njimi, kot je prikazano na spodnjem posnetku zaslona, ​​in nato pritisnite Alt + F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno.

2. Nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo VBA v okno.

Koda VBA: Poiščite in zamenjajte več besedil v več Wordovih datotekah

Sub FindReplaceAcrossMultipleWordDocuments()
'Updateby ExtendOffice
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFolderDlg As FileDialog
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
On Error GoTo ExitSub
Set xFolderDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFolderDlg.Show <> -1 Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges", "Kutools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
  (xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
Set xFSO = New Scripting.FileSystemObject
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
For Each xFile In xFSO.GetFolder(xFolderDlg.SelectedItems(1)).Files
  If VBA.InStr(xFile.Type, "Microsoft Word") > 0 Then
    Set xDoc = xWordApp.Documents.Open(xFile.Path)
    For I = 1 To xRng.Areas.Item(1).Cells.Count
      With xDoc.Application.Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = xRng.Areas.Item(1).Cells.Item(I).Value
        .Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
      End With
      xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
    Next
    xDoc.Close wdSaveChanges
  End If
Next
xWordApp.Quit
MsgBox "The Find and Replace has been completed", vbInformation + vbOKOnly, "Kutools for Excel"
ExitSub:
  Set xRng = Nothing
  Set xFolderDlg = Nothing
  Set xWordApp = Nothing
  Set xDoc = Nothing
End Sub

3. Še vedno v Microsoft Visual Basic za aplikacije okno, kliknite Orodja > ReferenceV Reference - VBAProject v pogovornem oknu izberite Knjižnica predmetov Microsoft Word 16.0 in Izvajanje Microsoftovih skriptov možnosti iz polja s seznamom, glejte posnetek zaslona:

4. Ko preverite dve možnosti, kliknite OK da zaprete pogovorno okno, nato pa še naprej pritiskajte F5 ključ za izvedbo te kode v odprtju Brskanje izberite mapo, ki vsebuje Wordove dokumente, za katere želite izvesti iskanje in zamenjavo, glejte posnetek zaslona:

5. Kliknite OK gumb, v pogovornem oknu, ki se odpre, pritisnite Ctrl tipko za ločeno izbiro izvirnega besedila in novih besedilnih stolpcev, ki jih želite uporabiti, glejte posnetek zaslona:

6. Nazadnje kliknite OK, in izvirna besedila se zamenjajo z novimi v datotekah tez, po zaključku se bo pojavilo pogovorno okno, kot je prikazano na spodnjem posnetku zaslona:

7. Kliknite OK da zaprete pogovorno okno. In lahko greste do datotek, da preverite pretvorjene rezultate.

Poiščite in zamenjajte več besedil v več Wordovih dokumentih z zmogljivo funkcijo

V tem razdelku bom govoril o tem, kako paketno najti in zamenjati besedila v več Wordovih dokumentih iz Worda namesto Excela. Z močnim orodjem -Kutools za Word, lahko hitro poiščete in zamenjate določena besedila ter jih nadomestite z novimi besedili v glavni datoteki, glavi, nogi, komentarjih itd. in označite rezultate, kot jih potrebujete.

1. Odprite eno Wordovo datoteko in kliknite Kutools Plus > Serijsko iskanje in zamenjava, glej posnetek zaslona:

2. V odprti Serijsko iskanje in zamenjava pogovorno okno, naredite naslednje:

• klik Dodaj gumb za dodajanje Wordovih datotek, kjer želite poiskati in zamenjati besedila;
• V levem podoknu kliknite Dodaj vrstico z zgornjega traku;
• V vstavljeno polje vnesite izvirno besedilo in novo besedilo v Najdi in Zamenjaj stolpce, ki jih želite poiskati in zamenjati. Prav tako lahko določite barvo za označevanje zamenjanih besedil, kot želite.

3. Ko ustvarite iskalne kriterije, kliknite Zamenjaj , da odprete Rezultat predogleda za ogled rezultatov iskanja in zamenjave. Oglejte si posnetek zaslona:

4. Nato kliknite Zapri in prikaže se okno s pozivom, ki vas opomni, če želite shraniti ta scenarij, kliknite Da da ga shranite in kliknite Ne če ga želite prezreti, si oglejte posnetek zaslona:

---

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

• Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
• Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
• Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
• Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
• Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
• Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
• Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
• Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
• Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.

Preberite več ... Brezplačen prenos... Nakup ... 

---

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

• Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
• Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
• Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!

Preberite več ... Brezplačen prenos... Nakup ...