Re: Macro to delete highlighted words

Tech-Archive recommends: Fix windows errors by optimizing your registry

From: Helmut Weber <red.sys@xxxxxxxxxxx>
Date: Sat, 26 Jul 2008 09:49:20 +0200

Hi DesM,

Sub DeleteYellowHighlight()
Dim rDcm As Range
Set rDcm = ActiveDocument.Range
With rDcm.Find
.Highlight = True
While .Execute
If rDcm.HighlightColorIndex = wdYellow Then
rDcm.Delete
End If
Wend
End With
End Sub

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP
.

Prev by Date: Re: Macro's & Equations
Next by Date: Re: Dealing with Tables in VBA
Previous by thread: Re: Macro's & Equations
Next by thread: Re: Styles
Index(es):
- Date
- Thread

Relevant Pages

Re: find&replace text throughout a document
... when I didn't know about ranges. ... Dim rDcm As Range ... .MatchCase = True ... .Execute Replace:=wdReplaceAll ...
(microsoft.public.word.vba.beginners)
Re: replacing different highlightings with different symbols
... Dim rDcm As Range ... Dim rtmp As Range ... .Highlight = True ... While .Execute ...
(microsoft.public.word.vba.general)
Re: Bookmarks in a template
... Dim rDcm As Range ... Dim rTmp As Range ... Set rDcm = ActiveDocument.Range ... If .Execute Then ...
(microsoft.public.word.vba.general)
Re: go to & highlight todays date on open
... Dim sTmp As String ... Dim rDcm As Range ... If .Execute Then ... rDcm.HighlightColorIndex = wdYellow ...
(microsoft.public.word.vba.general)
Re: Delete Section Breaks to End of Document
... Dim rdcm As Range ... Set rdcm = ActiveDocument.Range ... .Execute Replace:=wdReplaceAll ... End Sub ...
(microsoft.public.word.vba.general)