Conas míreanna dúblacha i ndoiciméad Word a aimsiú agus aird a tharraingt orthu?
Ag ceapadh, tá doiciméad mór Word agat a bhféadfadh na céadta leathanach a bheith aige, anois, ba mhaith leat a sheiceáil an bhfuil míreanna dúblacha ann agus ansin aird a tharraingt orthu chun iad a dhéanamh gan íoc, ionas gur féidir leat déileáil leis na habairtí dúblacha. Conas a d’fhéadfá na míreanna dúblacha a aimsiú agus aird a tharraingt orthu go tapa agus go héasca i ndoiciméad Word?
Faigh agus aibhsigh na míreanna dúblacha i ndoiciméad Word le cód VBA
Faigh agus aibhsigh na míreanna dúblacha i ndoiciméad Word le cód VBA
Chun na míreanna dúblacha i ndoiciméad Word a aimsiú agus aird a tharraingt orthu, is féidir leis an gcód VBA seo a leanas fabhar a thabhairt duit, déan é seo le do thoil:
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Agus ansin, cliceáil Ionsáigh > Modúil, cóipeáil agus greamaigh an cód thíos sa mhodúl bán oscailte:
Cód VBA: Faigh agus aibhsigh na míreanna dúblacha i ndoiciméad 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. Agus ansin brúigh F5 eochair chun an cód seo a rith, aibhsítear na habairtí dúblacha uile ag an am céanna, aibhsítear na chéad mhíreanna dúblacha a thaispeántar le dath glas, agus aibhsítear dúbailtí eile le dath buí, féach an scáileán:
Uirlisí Táirgiúlachta Oifige is Fearr
Kutools le haghaidh Word - Elevate Your Word Experience with Over 100 Gnéithe Suntasacha!
🤖 Gnéithe Kutools AI: Gin Ábhar / Athscríobh Téacs / Doiciméad C&A / Faigh Freagraí Tapa / Aistrigh doiciméid / Doiciméad Polainnis (Caomhnaigh Formáid)...
📘 Máistreacht Doiciméad: Leathanaigh Scoilte / Cumaisc Doiciméid / Roghnú Easpórtála i bhFormáidí Éagsúla (PDF/TXT/DOC/HTML...) / Baisc a thiontú go PDF...
✏ Eagarthóireacht na nÁbhar: Baisc Aimsigh agus Ionadaigh thar Chomhaid Il / Athraigh Méid Gach Pictiúr / Trasnaigh Rónna Tábla agus Colúin / Tiontaigh Tábla go Téacs...
🧹 Effortless Glan: Sguab as Spásanna Breise / Sosanna Alt / Boscaí Téacs / Hipearnasc / Chun níos mó uirlisí a bhaint, ceann chuig an Bain grúpa...
➕ Ionsáigh Cruthaitheach: cuir isteach Míle Deighilteoir / Boscaí Seiceála / Cnaipí Raidió / Cód QR / barcode / Pictiúir Il / Faigh amach níos mó sa Ionsáigh grúpa...
🔍 Roghanna Beachtais: Pionta Leathanaigh Sonracha / Táblaí / cruthanna / Míreanna Ceannteideal / Feabhsaigh an loingseoireacht le níos mó Roghnaigh bailte fearainn...
⭐ Feabhsuithe Réalta: Déan nascleanúint chuig Suíomh ar bith / Uath-Ionsáigh Téacs Athchleachtach / Scoránaigh Idir Windows Doiciméad / 11 Tiontú uirlisí...
Uirlisí Táirgiúlachta Oifige is Fearr
Kutools le haghaidh Word - 100+ Uirlisí le haghaidh Word
- 🤖 Gnéithe Kutools AI: Gin, Athscríobh, Achoimre a dhéanamh ar, aistriú Doiciméid / Faigh Freagraí Tapa / Doiciméad Polainnis (Caomhnaigh Formáid)
- 📘 Máistreacht Doiciméad: Leathanaigh Scoilte / Cumaisc Doiciméid / Baisc a thiontú go PDF
- ✏ Eagarthóireacht na nÁbhar: Faigh Baisc agus Ionadaigh / Athraigh Méid Gach Pictiúr
- 🧹 Effortless Glan: Bain Spásanna Breise / Bain Sosanna Alt
- ➕ Ionsáigh Cruthaitheach: Cuir isteach na mílte deighilteoirí / Cuir Seiceálacha isteach / Cruthaigh Cóid QR