Pääsisältö

Tutustu uuteen, ilmainen versio Kutools for Outlookista tänään!

Kuinka löytää ja korostaa päällekkäisiä kappaleita Word-asiakirjassa?

Kirjailija: Xiaoyang Viimeksi muokattu: 2024-07-31

Oletetaan, että sinulla on suuri Word-asiakirja, jossa voi olla satoja sivuja, joten haluat nyt tarkistaa, onko siinä päällekkäisiä kappaleita, ja korosta sitten tehdäksesi niistä erinomaisia, jotta voit käsitellä päällekkäisiä lauseita. Kuinka voit löytää ja korostaa päällekkäiset kappaleet nopeasti ja helposti Word-asiakirjassa?

Etsi ja korosta päällekkäiset kappaleet Word-asiakirjasta VBA-koodilla

Etsi ja korosta päällekkäiset kappaleet Word-asiakirjasta VBA-koodilla

Voit etsiä ja korostaa päällekkäisiä kappaleita Word-asiakirjassa seuraavalla VBA-koodilla, toimi näin:

1. Pidä painettuna ALT + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.

2. Ja sitten, napsauta liite > Moduulit, kopioi ja liitä alla oleva koodi avautuvaan tyhjään moduuliin:

VBA-koodi: Etsi ja korosta päällekkäiset kappaleet Word-asiakirjassa:

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. Ja paina sitten F5 näppäintä tämän koodin suorittamiseksi, kaikki päällekkäiset lauseet korostetaan kerralla, ensimmäiset näytetyt kaksoiskappaleet on korostettu vihreällä värillä ja muut kaksoiskappaleet korostetaan keltaisella värillä, katso kuvakaappaus:

Kaikki päällekkäiset lauseet on korostettu siten, että ensimmäiset kaksoiskappaleet on korostettu vihreällä ja muut kaksoiskappaleet keltaisella

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Paranna sanakokemustasi Overilla 100 Merkittäviä ominaisuuksia!

🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super Polish (säilytettävä muoto) / Super Translate (säilytä muoto) / AI editointi / AI Proofread...

📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Vie valikoima eri muodoissa (PDF/TXT/DOC/HTML...) / Erämuunnos PDF-muotoon...

✏ Sisältö Editointi: Eräetsi ja korvaa useita tiedostoja / Muuta kaikkien kuvien kokoa / Transponoi taulukon rivit ja sarakkeet / Muunna taulukko tekstiksi...

🧹 Vaivaton puhdistus: Pyyhkäise pois Ylimääräiset tilat / Leikkaukset / Tekstilaatikot / Hyperlinkit / Jos haluat lisää irrotustyökaluja, siirry kohtaan poista ryhmä...

➕ Luovat lisäosat: Aseta Tuhat erottimet / Valintaruudut / Radiopainikkeet / QR koodi / Viivakoodi / Useita kuvia / Tutustu lisää osoitteessa liite ryhmä...

🔍 Tarkkuusvalinnat: Tarkka kohta Tietyt sivut / taulukot / Muodot / Otsikko Kappaleet / Paranna navigointia lisää valita piirteet...

⭐ Tähtien parannukset: Siirry mihin tahansa sijaintiin / Lisää toistuvaa tekstiä automaattisesti / Vaihda asiakirjaikkunoiden välillä / 11 Muuntaminen Työkalut...

Kutools- ja Kutools Plus -välilehdet Word Ribbonissa
???? Haluatko kokeilla näitä ominaisuuksia? Lataa Kutools for Word nyt! 🚀
 

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Yli 100 Wordin työkalua

Ilmainen lataus Osta nyt Lue lisää Kutoolsista