Hur hittar och markerar du dubbla stycken i Word-dokument?
Om du antar att du har ett stort Word-dokument som kan ha hundratals sidor, nu vill du kontrollera om det finns dubbla stycken och markera sedan för att göra dem enastående, så att du kan hantera dubbla meningar. Hur kunde du hitta och markera de dubbla styckena snabbt och enkelt i Word-dokument?
Hitta och markera de dubbla styckena i Word-dokument med VBA-kod
Hitta och markera de dubbla styckena i Word-dokument med VBA-kod
För att hitta och markera de dubbla styckena i ett Word-dokument kan följande VBA-kod göra dig en tjänst, gör så här:
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Och klicka sedan på Insert > Modulerna, kopiera och klistra in koden nedan i den öppnade tomma modulen:
VBA-kod: Hitta och markera de dubbla styckena i Word-dokument:
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. Och tryck sedan på F5 nyckel för att köra den här koden, alla dubbla meningar markeras på en gång, de första visade duplicerade styckena är markerade med grön färg och andra dubbletter markeras med gul färg, se skärmdump:
Rekommenderade Word-produktivitetsverktyg
Kutools för Word - Mer än 100 avancerade funktioner för Word, spara 50% tid
- Komplicerade och upprepade operationer kan göras engångsbehandling på några sekunder.
- Infoga flera bilder över mappar i Word-dokumentet samtidigt.
- Slå ihop och kombinera flera Word-filer över mappar till en med önskad ordning.
- Dela upp det aktuella dokumentet i separata dokument enligt rubrik, avsnittbrytning eller andra kriterier.
- Konvertera filer mellan Doc och Docx, Docx och PDF, samling verktyg för vanliga konverteringar och val, och så vidare ...
