Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako najti in nadomestiti več besed hkrati v Wordovem dokumentu?

Word ponuja funkcijo Najdi in zamenjaj, da bi našli vse primere besede ali fraze in jih zamenjali z novo besedo hkrati. Ampak, če hočete najti in zamenjati različne besede istočasno, ta vgrajena funkcija ne more pomagati. V tem članku govorimo o metodi VBA, da v dokumentu Word hkrati najdemo in nadomestimo več različnih besed.

Hkrati poiščite in nadomestite več besed v Wordu s kodo VBA


Hkrati poiščite in nadomestite več besed v Wordu s kodo VBA

Prosimo, naredite naslednje, da hkrati poiščete in zamenjate več besed v dokumentu Word.

1. Odprite Wordov dokument, ki ga želite najti, in istočasno zamenjajte 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 Modul.

VBA koda: 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 ključ za zagon kode.

4. V prvem Kutools for Word v pogovornem oknu vnesite več besed, ki jih boste našli in nadomestili v polje z besedilom, in jih ločite z vejico, nato pa kliknite OK gumb. Prikaz slike:

5. V drugem Kutools for Word v pogovornem oknu vnesite nove besede, ki jih boste zamenjali (te besede morajo biti tudi ločene z vejicami) in nato kliknite OK gumb.

Opomba: V tem primeru vse "KTE" v tem dokumentu bo nadomeščen z "Novo", in "KTO" in "KTW" bodo zamenjani z "Test" in "Dokončaj". Prosimo, spremenite jih na svoje potrebe.

Priporočena orodja za produktivnost Worda

shot kutools beseda kutools zavihek 1180x121
shot kutools beseda kutools plus zavihek 1180x120

Kutools for Word - več kot 100 napredne funkcije Za Microsoft Word shranite svoj čas 50%

  • Zapletene in ponavljajoče se operacije lahko opravite enkratno obdelavo v sekundah.
  • V dokument Worda vstavite več slik v mapah.
  • Združite in združite več datotek Word v mapah v eno z želenim naročilom.
  • Razdelite trenutni dokument v ločene dokumente v skladu z naslovom 1, odlomkom odseka ali drugimi merili.
  • Pretvorite datoteke med Doc in Docx, Docx in PDF, zbirko orodij za običajne konverzije in izbiro, in tako naprej...
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.
    jaka1 · 1 months ago
    Toto jsem hledal, jen potřebuji pro hledaný text přidat nějaké formátování. Jak toho dosáhnu?