Hogyan lehet megkeresni és kiemelni az ismétlődő bekezdéseket a Word dokumentumban?
Tételezzük fel, hogy van egy nagy Word-dokumentumod, amelynek több száz oldala lehet. Most ellenőrizni akarja, hogy vannak-e ismétlődő bekezdések, majd jelölje ki, hogy kiemelkedőek legyenek, hogy kezelni tudja az ismétlődő mondatokat. Hogyan lehet gyorsan és egyszerűen megtalálni és kiemelni az ismétlődő bekezdéseket a Word dokumentumban?
Keresse meg és emelje ki a VBA-kóddal ellátott Word-dokumentum ismétlődő bekezdéseit
Keresse meg és emelje ki a VBA-kóddal ellátott Word-dokumentum ismétlődő bekezdéseit
A Word-dokumentumban található duplikált bekezdések megkereséséhez és kiemeléséhez a következő VBA-kód kedvezhet, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ezután kattintson betétlap > Modulok, másolja és illessze be a kódot a megnyitott üres modulba:
VBA-kód: Keresse meg és emelje ki a duplikált bekezdéseket a Word dokumentumban:
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. Ezután nyomja meg a gombot F5 kulcsa ennek a kódnak a futtatásához, az összes ismétlődő mondat egyszerre van kiemelve, az első megjelenített ismétlődő bekezdések zöld színnel vannak kiemelve, és az egyéb duplikátumok sárga színnel vannak kiemelve, lásd a képernyőképet:
A legjobb irodai hatékonyságnövelő eszközök
Kutools for Word - Növelje Word-élményét az Over segítségével 100 Figyelemre méltó tulajdonságok!
🤖 Kutools AI asszisztens: Alakítsa át írását mesterséges intelligencia segítségével - Tartalom létrehozása / Szöveg átírása / Összefoglalja a dokumentumokat / Információért érdeklődjön dokumentum alapján, mindezt a Word-en belül
📘 Dokumentummesterség: Felosztott oldalak / Dokumentumok egyesítése / Kijelölés exportálása különböző formátumokban (PDF/TXT/DOC/HTML...) / Kötegelt konvertálás PDF-be / Oldalak exportálása képként / Nyomtasson több fájlt egyszerre...
✏ Tartalom Szerkesztés: Kötegelt keresés és csere Több fájl között / Minden kép átméretezése / Transzponálja a táblázat sorait és oszlopait / Táblázat konvertálása szöveggé...
🧹 Könnyed tisztítás: Söpörj el Extra helyek / Szakaszszünetek / Minden fejléc / Szövegdobozok / Hiperhivatkozások / További eltávolító eszközökért látogasson el a mi oldalunkra Csoport eltávolítása...
➕ Kreatív betétek: Beszúrás Ezer elválasztó / Jelölőnégyzetek / Rádió gombok / QR-kód / Vonalkód / Átlós vonal táblázat / Egyenletfelirat / Képfelirat / Táblázat felirata / Több kép / Fedezzen fel többet a Csoport beszúrása...
???? Precíziós kiválasztás: Pontosan konkrét oldalak / asztalok / formák / címsor bekezdései / A navigáció javítása a következővel: több Jelölje ki a funkciókat...
⭐ Star Enhancements: Gyorsan navigáljon bármely helyre / ismétlődő szöveg automatikus beszúrása / zökkenőmentesen válthat a dokumentumablakok között / 11 Konverziós eszközök...