Kako iskati in zamenjati več besed hkrati v Wordovem dokumentu?

Word ponuja funkcijo Najdi in zamenjaj, da poišče vse primere besede ali besedne zveze in jih hkrati nadomesti z novo besedo. Če pa želite hkrati iskati in nadomeščati različne besede, vam ta vgrajena funkcija ne more pomagati. V tem članku govorimo o metodi VBA za iskanje in zamenjavo več različnih besed hkrati v Wordovem dokumentu.

Poiščite in zamenjajte več besed hkrati v Wordu s kodo VBA
Preprosto poiščite in zamenjajte več besed hkrati v Wordu z neverjetno funkcijo

Poiščite in zamenjajte več besed hkrati v Wordu s kodo VBA

Za iskanje in zamenjavo več besed hkrati v besedilu Word naredite naslednje.

1. Odprite Wordov dokument, v katerem želite hkrati najti in zamenjati več besed, nato pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Modul. Nato kopirajte spodnjo kodo VBA v okno modula.

Koda VBA: poiščite in zamenjajte več besed hkrati v Wordu

Sub FindAndReplaceMultiItems()
'Update by ExtendOffice 2018/10/25
    Dim xFind As String
    Dim xReplace As String
    Dim xFindArr, xReplaceArr
    Dim I As Long
    Application.ScreenUpdating = False
    xFind = InputBox("Enter items to be found here,seperated by comma: ", "Kutools for Word")
    xReplace = InputBox("Enter new items here, seperated by comma: ", "Kutools for Word")
    xFindArr = Split(xFind, ",")
    xReplaceArr = Split(xReplace, ",")
    If UBound(xFindArr) <> UBound(xReplaceArr) Then
        MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    For I = 0 To UBound(xFindArr)
        Selection.HomeKey Unit:=wdStory
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = xFindArr(I)
            .Replacement.Text = xReplaceArr(I)
            .Format = False
            .MatchWholeWord = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
    Application.ScreenUpdating = True
End Sub

3. Pritisnite F5 tipko za zagon kode.

4. V prvem Kutools za Word v pogovorno okno vnesite več besed, ki jih boste našli in zamenjali, v besedilno polje in jih ločite z vejico, nato kliknite OK . Oglejte si posnetek zaslona:

5. V drugem Kutools za Word v pogovorno okno vnesite nove besede, ki jih boste zamenjali (te besede je treba ločiti tudi z vejicami), in kliknite na OK gumb.

Opomba: V tem primeru vsi "KTE" v tem dokumentu bo nadomeščen z "Novo", in "KTO" in "KTW" bo nadomeščen z "Test" in "Končaj". Prosimo, spremenite jih glede na vaše potrebe.

Preprosto poiščite in zamenjajte več besed hkrati v Wordu z neverjetno funkcijo

1. Zaženite aplikacijo Microsoft Word, kliknite Kutools Plus > Serijsko iskanje in zamenjava.

2. V Ljubljani Serijsko iskanje in zamenjava okno, nastavite na naslednji način.

• 2.1 kliknite gumb> Dodaj datoteko or dodaj mapo da dodate enega ali več dokumentov, v katerih boste našli in zamenjali več besed.
  
• 2.2 Kliknite na Dodaj vrstico gumb, da vstavite polja za iskanje in zamenjavo. Če želite hkrati najti in zamenjati tri različna besedila, ustvarite tri vrstice.
• 2.3 V vsako vrstico vnesite obstoječe besede, ki jih boste zamenjali z novo Najdi in nato vnesite nove besede v Zamenjaj stolpec.
• 2.4 Navedite Vrsta iskanja za vsako vrstico.
• 2.5 V Poišči v stolpec izberite, kje uporabiti najdi in zamenjaj. Vključuje Glavni dokument, Glava in Noga v tem oddelku. Izberete lahko enega od njih, dva ali vse glede na vaše potrebe.
• 2.6. Kliknite Zamenjaj za zagon operacije. Oglejte si posnetek zaslona:

Nato se v izbranih dokumentih hkrati nadomestijo določene besede.

Nasvet: Rezultat lahko označite z barvo ozadja, tako da v polju določite določeno barvo Označite stolpec za vrstico.

  Če želite imeti brezplačno (60-dnevno) preskusno različico tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.

Najboljša pisarniška orodja za produktivnost

Kutools za Word - Izboljšajte svojo besedno izkušnjo z Over 100 Izjemne lastnosti!

🤖 Kutools AI pomočnik: Preoblikujte svoje pisanje z AI - Ustvarite vsebino  /  Prepiši besedilo  /  Povzemite dokumente  /  Povprašajte za informacije na podlagi dokumenta, vse v Wordu

📘 Obvladovanje dokumentov: Razdeljene strani  /  Spoji dokumente  /  Izvozi izbor v različnih formatih (PDF/TXT/DOC/HTML ...)  /  Paketna pretvorba v PDF  /  Izvozi strani kot slike  /  Natisnite več datotek hkrati...

✏ Urejanje vsebine: Serijsko iskanje in zamenjava čez več datotek  /  Spremeni velikost vseh slik  /  Prenos vrstic in stolpcev tabele  /  Pretvori tabelo v besedilo...

🧹 Čiščenje brez napora: Pometite stran Dodatni prostori  /  Prelomi oddelkov  /  Vse glave  /  Besedilna polja  /  Hiperpovezave  / Za več orodij za odstranjevanje pojdite na naš Odstrani skupino...

➕ Ustvarjalni vložki: Vstavi Tisoč ločila  /  Potrditvena polja  /  Radijske tipke  /  QR koda  /  Črtna koda  /  Tabela z diagonalno črto  /  Naslov enačbe  /  Opis slike  /  Naslov tabele  /  Več slik  / Odkrijte več v Vstavi skupino...

???? Natančne izbire: Natančna točka določene strani  /  mize  /  Oblike  /  odstavki naslova  / Izboljšajte navigacijo z več Izberite funkcije...

⭐ Izboljšave zvezdic: Hitra navigacija do katere koli lokacije  /  samodejno vstavljanje ponavljajočega se besedila  /  brez težav preklapljate med okni dokumentov  /  11 Orodja za pretvorbo...

???? Želite preizkusiti te funkcije? Kutools for Word ponuja a 60-dan brezplačni preskus, brez omejitev! 🚀

Brezplačen prenos     Preberi več     Kupi zdaj