Macro to delete highlighted words

D

DesM

Would appreciate if anyone could give me a macro to delete yellow highlighed
text in a Word2000 document.
DesM
 
H

Helmut Weber

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
 
Top