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ů.
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!
🤖 Kutools AI asistent: Transformujte své psaní pomocí AI - Generovat obsah / Přepsat text / Shrnout dokumenty / Vyžádejte si informace na základě dokumentu, vše ve Wordu
📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...) / Dávkový převod do PDF / Exportujte stránky jako obrázky / Tisk více souborů najednou...
✏ Úprava obsahu: Dávkové hledání a nahrazení přes více souborů / Změnit velikost všech obrázků / Transponujte řádky a sloupce tabulky / Převést tabulku na text...
🧹 Čištění bez námahy: Smést pryč Extra prostory / Sekce přestávky / Všechny záhlaví / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete u nás Odstranit skupinu...
➕ Kreativní vložky: Vložit Tisíc separátorů / Zaškrtávací políčka / Tlačítka rádia / QR kód / čárový kód / Tabulka diagonálních čar / Titulek rovnice / Titulek obrázku / Titulek tabulky / Více obrázků / Objevte více v Vložit skupinu...
???? Přesné výběry: Přesně konkrétní stránky / Tabulky / Tvary / nadpisové odstavce / Vylepšete navigaci pomocí vice Vyberte funkce...
⭐ Vylepšení hvězd: Navigujte rychle na libovolné místo / automatické vkládání opakujícího se textu / plynule přepínat mezi okny dokumentů / 11 Konverzní nástroje...