Jak najít a zvýraznit duplicitní odstavce v dokumentu Word?
Předpokládejme, že máte velký dokument aplikace Word, který může mít stovky stránek. Nyní byste chtěli zkontrolovat, zda existují duplicitní odstavce, a pak je zvýraznit, aby byly vynikající, abyste mohli pracovat s duplicitními větami. Jak můžete rychle a snadno najít a zvýraznit duplicitní odstavce v dokumentu Word?
Najděte a zvýrazněte duplicitní odstavce v dokumentu Word pomocí kódu VBA
Najděte a zvýrazněte duplicitní odstavce v dokumentu Word pomocí kódu VBA
Chcete-li najít a zvýraznit duplicitní odstavce v dokumentu Word, následující kód VBA vám může udělat laskavost, udělejte to takto:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. A pak klikněte Vložit > Modul, zkopírujte a vložte níže uvedený kód do otevřeného prázdného modulu:
Kód VBA: Najděte a zvýrazněte duplicitní odstavce v dokumentu Word:
Sub highlightdup()
Dim I, J As Long
Dim xRngFind, xRng As Range
Dim xStrFind, xStr As String
Options.DefaultHighlightColorIndex = wdYellow
Application.ScreenUpdating = False
With ActiveDocument
For I = 1 To .Paragraphs.Count - 1
Set xRngFind = .Paragraphs(I).Range
If xRngFind.HighlightColorIndex <> wdYellow Then
For J = I + 1 To .Paragraphs.Count
Set xRng = .Paragraphs(J).Range
If xRngFind.Text = xRng.Text Then
xRngFind.HighlightColorIndex = wdBrightGreen
xRng.HighlightColorIndex = wdYellow
End If
Next
End If
Next
End With
End Sub
3. A pak stiskněte F5 klíč ke spuštění tohoto kódu, všechny duplicitní věty jsou zvýrazněny najednou, první zobrazené duplicitní odstavce jsou zvýrazněny zelenou barvou a další duplikáty jsou zvýrazněny žlutou barvou, viz screenshot:
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!
🤖 Funkce AI Kutools: Asistent AI / Asistent v reálném čase / Super Polish (Zachovat formát) / Super překlad (zachovat formát) / Redakce AI / Korektura AI...
📘 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...
✏ Úprava obsahu: Dávkové hledání a nahrazování ve více souborech / 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 / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete na Odstranit skupina...
➕ Kreativní vložky: Vložit Tisíc separátorů / Zaškrtávací políčka / Tlačítka rádia / QR kód / čárový kód / Více obrázků / Objevte více v Vložit skupina...
???? Přesné výběry: Přesně Konkrétní stránky / Tabulky / Tvary / Nadpis odstavce / Vylepšete navigaci pomocí vice vybrat funkce...
⭐ Vylepšení hvězd: Přejděte na libovolné místo / Automatické vkládání opakujícího se textu / Přepínání mezi okny dokumentu / 11 Konverze Tools...
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro Word - 100+ nástrojů pro Word
- 🤖 Funkce AI Kutools: Asistent AI / Asistent v reálném čase / Super polský / Super překlad / Redakce AI / Korektura AI
- 📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Dávkový převod do PDF
- ✏ Úprava obsahu: Dávkové hledání a nahrazení / Změnit velikost všech obrázků
- 🧹 Čištění bez námahy: Odstraňte další mezery / Odstraňte konce sekcí
- ➕ Kreativní vložky: Vložte tisíce oddělovačů / Vložit zaškrtávací políčka / Vytvářejte QR kódy