Note: The other languages of the website are Google-translated. Back to English

Jak najít a nahradit více slov najednou v dokumentu Word?

Word poskytuje funkci Najít a nahradit a najít všechny výskyty slova nebo fráze a nahradit je novým slovem současně. Ale pokud chcete najít a nahradit různá slova současně, tato funkce vestavění nemůže pomoci. V tomto článku mluvíme o metodě VBA k vyhledání a nahrazení více různých slov současně v dokumentu Word.

Najděte a nahraďte více slov současně v aplikaci Word kódem VBA
Snadno vyhledejte a nahraďte více slov najednou v aplikaci Word úžasnou funkcí


Najděte a nahraďte více slov současně v aplikaci Word kódem VBA

Chcete-li najít a nahradit více slov najednou v dokumentu Word, postupujte následovně.

1. Otevřete dokument Word, který chcete vyhledat, a nahraďte více slov najednou, poté stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte níže uvedený kód VBA do okna modulu.

Kód VBA: Najděte a nahraďte více slov najednou v aplikaci Word

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. zmáčkni F5 klíč ke spuštění kódu.

4. V první Kutools pro Word V dialogovém okně zadejte více slov, která najdete a nahradíte do textového pole, oddělte je čárkou a klikněte na OK knoflík. Viz screenshot:

5. Ve druhé Kutools pro Word V dialogovém okně zadejte nová slova, která nahradíte (tato slova je také třeba oddělit čárkami), a poté klikněte na OK .

Poznámka: V tomto případě vše „KTE“ v tomto dokumentu bude nahrazen "Nový", a „KTO“ a „KTW“ bude nahrazen "Test" a "Dokončit". Změňte je prosím podle svých potřeb.


Snadno vyhledejte a nahraďte více slov najednou v aplikaci Word úžasnou funkcí

Projekt Dávkové hledání a nahrazení vlastnost Kutools pro Word může pomoci snadno najít a nahradit různé texty v dokumentu nebo ve více dokumentech současně.

Před použitím této funkce si prosím udělejte pár minut nejprve si jej stáhněte a nainstalujte.

1. Spusťte aplikaci Microsoft Word, klepněte na Kutools Plus > Dávkové hledání a nahrazení.

2. V Dávkové hledání a nahrazení v okně nakonfigurujte následujícím způsobem.

  • 2.1 klikněte na tlačítko> Přidat soubor or Přidat složku přidat jeden nebo více dokumentů, ve kterých najdete a nahradíte více slov.
  • 2.2 Klepněte na Přidat řádek tlačítko pro vložení polí hledání a nahrazení. Pokud chcete najít a nahradit tři různé texty současně, vytvořte tři řádky.
  • 2.3 V každém řádku zadejte existující slova, která nahradíte novým, v Najít sloupec a potom zadejte nová slova do Nahradit sloupec.
  • 2.4 Specifikujte Typ vyhledávání pro každý řádek.
  • 2.5 V Nalézt v sloupci vyberte, kde se má použít hledání a nahrazení. To zahrnuje Hlavní dokument, Hlavička a Zápatí v této části. Můžete si vybrat jednu z nich, dvě z nich nebo všechny podle svých potřeb.
  • 2.6. Klepněte na tlačítko Nahradit pro spuštění operace. Viz snímek obrazovky:

Poté jsou ve vybraných dokumentech současně nahrazena konkrétní slova.

Tip: Výsledek můžete zvýraznit barvou pozadí zadáním určité barvy v Zdůraznit sloupec pro řádek.

  Pokud chcete mít bezplatnou (60denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.


Doporučené nástroje produktivity slov

 

Kutools pro Word - více než 100 pokročilých funkcí pro Word, ušetříte 50% času

  • Složité a opakované operace lze provádět jednorázově během několika sekund.
  • Vložte více obrázků do složek do dokumentu Word najednou.
  • Sloučte a zkombinujte více souborů Wordu napříč složkami do jednoho v požadovaném pořadí.
  • Rozdělte aktuální dokument na samostatné dokumenty podle záhlaví, zalomení sekce nebo jiných kritérií.
  • Převádějte soubory mezi Doc a Docx, Docx a PDF, kolekci nástrojů pro běžné převody a výběr atd. ...
Komentáře (21)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Toto jsem hledal, jen potřebuji pro hledaný text přidat nějaké formátování. Jak toho dosáhnu?
Tento komentář byl moderátorem webu minimalizován
bude to fungovat v Office Excel 365
Tento komentář byl moderátorem webu minimalizován
Nějaký způsob, jak rozlišit malá a velká písmena?
Tento komentář byl moderátorem webu minimalizován
Ahoj, toto funguje dobře s anglickými slovy. Nyní dělám dokument, kde překládám angličtinu do gudžarátštiny. Takže, když použiji toto (Najít anglická slova) a (Nahradit gudžarátskými slovy), změní se, ale zobrazí se jako „???“. Nezobrazuje gudžarátské slovo, ale pouze otazníky? Nějaká další pomoc? Prosím.
Tento komentář byl moderátorem webu minimalizován
Ahoj Shailesh, řeším stejný problém. Našli jste na to řešení. Také se snažím přijít na to, jak změnit čínštinu na angličtinu.
Tento komentář byl moderátorem webu minimalizován
Jak najít a vybrat více slov současně
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Po spuštění kódu se objeví dialogové okno Kutools pro Excel, zadejte prosím klíčová slova, která najdete, a oddělte je čárkami.
Tento komentář byl moderátorem webu minimalizován
Ahoj, jak lze toto makro upravit, aby obsahovalo více klíčových slov? Mám asi 170 slov, která bych rád našel a nahradil
Tento komentář byl moderátorem webu minimalizován
Ahoj JM,
Po spuštění kódu se objeví dialogové okno Kutools pro Excel, zadejte prosím klíčová slova, která najdete, a oddělte je čárkami.
Tento komentář byl moderátorem webu minimalizován
Ahoj! Nejprve vám blahopřejeme k vaší práci: toto makro je velmi užitečné a zajímavé! Byl bych rád, kdybys mi pomohl s jednou věcí. Jsem korektor a rád bych, aby byly náhrady zvýrazněny zelenou nebo červenou barvou. Jak to mohu udělat? Existuje nějaký řádek kódu, který bych mohl použít?
Tento komentář byl moderátorem webu minimalizován
Ahoj, funkce Batch Find and Replace v Kutools for Word dokáže perfektně vyřešit váš problém, můžete to zkusit.
Tento komentář byl moderátorem webu minimalizován
Po stisknutí Nahradit přejde pouze do Náhledu a nedělá nic dalšího.
Tento komentář byl moderátorem webu minimalizován
Ahoj Ajsi, všechna požadovaná slova byla úspěšně nahrazena najednou po stisknutí tlačítka Nahradit. Přejde na kartu Náhled, která vám pomůže zjistit, kolik slov bylo úspěšně nahrazeno. Poté dialogové okno zavřete.
Tento komentář byl moderátorem webu minimalizován
Co když se snažím nahradit čárky?
Tento komentář byl moderátorem webu minimalizován
Kód VBA nemůže pomoci nahradit čárky. K dosažení můžete použít Kutools.
Tento komentář byl moderátorem webu minimalizován
V první instrukci (Najít a nahradit více slov současně ve Wordu pomocí kódu VBA) nenajde případy, kdy slovo, které má být nahrazeno, spadá doprostřed slova (například .com za názvem webu) . Dá se to nějak upravit?
Tento komentář byl moderátorem webu minimalizován
Díky za projekt, mohli byste to udělat tak, že můžeme také nahradit písmena ve slovech. Například pokud chci změnit dolar za dolar, nefunguje to.
Tento komentář byl moderátorem webu minimalizován
Chào bạn, có cách nào thay thế RẤT NHIỀU cụm từ bằng RẤT NHIỀU cụm từ khác (nhập từng cụm từ rất mất thời gian) bằng cách m lập một file trong đó có 2 cột, 1 cột là cụm từ nguồn và cột 2 là cụm từ đích được không? rất cám ơn bạn.
Tento komentář byl moderátorem webu minimalizován
Ahoj Nguyễn Phúc Lâm,
Doporučuji, abyste k vyřešení tohoto problému použili funkci Dávkové hledání a nahrazení Kutools pro Word (druhá metoda v tomto příspěvku).
V dialogovém okně Najít a nahradit můžete po vytvoření dvou potřebných sloupců uložit aktuální nastavení jako scénář pro budoucí použití.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/find_and_replace.png
Tento komentář byl moderátorem webu minimalizován
Cám ơn Crystal, Cách này có thể Áp dụng với một số lượng nhỏ các cụm từ, nếu với số lượng các cụm thể thể thó thó thó th ể c. Vậy co cách nào khác không bạn? Cám ơn bạn đã trả lời
Tento komentář byl moderátorem webu minimalizován
Ahoj Nguyễn Phúc Lâm,
Dočasně nelze tento problém vyřešit pomocí kódu VBA, protože je trochu složitý. Tato funkce bude zvážena pro upgrade v příštím vydání. Omluvám se za nepříjemnost.
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění