Kako najti in poudariti podvojene odstavke v dokumentu Word?
Recimo, da imate velik Wordov dokument, ki ima lahko na stotine strani, zdaj želite preveriti, ali obstajajo podvojeni odstavki, in nato poudariti, da bodo izjemni, da boste lahko obravnavali podvojene stavke. Kako lahko v Wordovem dokumentu hitro in enostavno najdete in poudarite podvojene odstavke?
Poiščite in označite podvojene odstavke v dokumentu Word s kodo VBA
Poiščite in označite podvojene odstavke v dokumentu Word s kodo VBA
Če želite poiskati in poudariti podvojene odstavke v Wordovem dokumentu, vam lahko naredite uslugo z naslednjo kodo VBA:
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. In nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul:
Koda VBA: Poiščite in označite podvojene odstavke 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. In nato pritisnite F5 za zagon te kode so vsi podvojeni stavki označeni naenkrat, prvi prikazani podvojeni odstavki so označeni z zeleno barvo, drugi dvojniki pa z rumeno barvo, glejte posnetek zaslona:
Najboljša pisarniška orodja za produktivnost
Kutools for Word - Izboljšajte svojo besedno izkušnjo z Over 100 Izjemne lastnosti!
Poglobite se v spodaj poudarjene funkcije oz kliknite tukaj, če želite raziskati vso moč Kutools for Word.
📘 Obvladovanje dokumentov: Razdeljene strani / Spoji dokumente / Izvozi izbor v različnih formatih (PDF/TXT/DOC/XLSX) / Paketna pretvorba v PDF / Izvozi strani kot slike / Natisnite več datotek hkrati ...
✏ Urejanje vsebine: Serijsko iskanje in zamenjava čez več datotek / Spremeni velikost vseh slik / Prenos vrstic in stolpcev tabele / Pretvori tabelo v besedilo ...
🧹 Čiščenje brez napora: Pometite stran Dodatni prostori / Prelomi oddelkov / Vse glave / Besedilna polja / Hiperpovezave / Za več orodij za odstranjevanje pojdite v našo skupino za odstranjevanje
➕ Ustvarjalni vložki: Vstavi Tisoč ločila / Potrditvena polja / Radijske tipke / QR koda / Črtna koda / Tabela z diagonalno črto / Naslov enačbe / Opis slike / Naslov tabele / Več slik / Odkrijte več v naši skupini za vstavljanje
???? Natančne izbire: Natančno določite določene strani / mize / Oblike / odstavki naslova / Z lahkoto krmarite z našo Select Group
⭐ Izboljšave zvezdic: Hitra navigacija do katere koli lokacije / samodejno vstavljanje ponavljajočega se besedila / brez težav preklapljate med okni dokumentov / 11 Orodja za pretvorbo ...
Preoblikujte svoje Wordove naloge s Kutools. 👉 Prenesite s 30-dnevnim preizkusom zdaj 🚀.














