Sut i ddarganfod ac amlygu paragraffau dyblyg yn nogfen Word?
Gan dybio, mae gennych ddogfen Word fawr a allai fod â channoedd o dudalennau, nawr, rydych chi am wirio a oes paragraffau dyblyg ac yna tynnu sylw atynt i'w gwneud yn rhagorol, fel y gallwch ddelio â'r brawddegau dyblyg. Sut allech chi ddarganfod ac amlygu'r paragraffau dyblyg yn gyflym ac yn hawdd yn nogfen Word?
Darganfyddwch ac amlygwch y paragraffau dyblyg yn nogfen Word gyda chod VBA
Darganfyddwch ac amlygwch y paragraffau dyblyg yn nogfen Word gyda chod VBA
I ddarganfod ac amlygu'r paragraffau dyblyg mewn dogfen Word, gall y cod VBA canlynol ffafrio chi, gwnewch fel hyn:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Ac yna, cliciwch Mewnosod > Modiwlau, copïo a gludo islaw'r cod i'r modiwl gwag agored:
Cod VBA: Darganfyddwch ac amlygwch y paragraffau dyblyg yn nogfen 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. Ac yna pwyswch F5 yn allweddol i redeg y cod hwn, amlygir yr holl frawddegau dyblyg ar unwaith, amlygir y paragraffau dyblyg cyntaf a arddangosir gyda lliw gwyrdd, ac amlygir dyblygu eraill â lliw melyn, gweler y screenshot:
Offer Cynhyrchiant Swyddfa Gorau
Kutools am Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!
🤖 Nodweddion Kutools AI: Cynhyrchu Cynnwys / Ailysgrifennu Testun / Dogfen Holi ac Ateb / Cael Atebion Cyflym / Cyfieithu dogfennau / Dogfen Bwyleg (Fformat Cadw)...
📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...) / Trosi swp i PDF...
✏ Golygu Cynnwys: Darganfod Swp ac Amnewid ar draws Ffeiliau Lluosog / Newid Maint Pob Llun / Trawsosod Rhesi Bwrdd a Cholofnau / Trosi Tabl i Testun...
🧹 Ymdrech Glân: swap i ffwrdd Mannau Ychwanegol / Toriadau Adran / Blychau Testun / hypergysylltiadau / Am fwy o offer tynnu, ewch i'r Dileu grŵp...
➕ Mewnosodiadau Creadigol: mewnosod Mil o Wahanwyr / Blychau Gwirio / Botymau Radio / Cod QR / Cod Bar / Lluniau Lluosog / Darganfod mwy yn y Mewnosod grŵp...
🔍 Detholiadau Manwl: pinbwynt Tudalennau Penodol / Tablau / Siapiau / Pennawd Paragraffau / Gwella llywio gyda mwy dewiswch Nodweddion...
⭐ Gwelliannau Seren: Llywiwch i Unrhyw Leoliad / Awto-Mewnosod Testun Ailadroddus / Toglo Rhwng Windows Document / 11 Trosi offer...
Offer Cynhyrchiant Swyddfa Gorau
Kutools am Word - 100+ Offer ar gyfer Word
- 🤖 Nodweddion Kutools AI: cynhyrchu, Ailysgrifennu, Crynhowch, cyfieithu Dogfennau / Cael Atebion Cyflym / Dogfen Bwyleg (Fformat Cadw)
- 📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Trosi swp i PDF
- ✏ Golygu Cynnwys: Swp Dod o Hyd i ac Amnewid / Newid Maint Pob Llun
- 🧹 Ymdrech Glân: Tynnwch Fannau Ychwanegol / Dileu Toriadau Adran
- ➕ Mewnosodiadau Creadigol: Mewnosod Mil o Wahanwyr / Mewnosod Blychau Gwirio / Creu Codau QR