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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Macro to select and delete levels of a document 2
Delete 100 Hundred Unique Values From Word Document 0
OLE Word spelling 0
Delete hilighted words (wdYellow) 2
How do I convert shading to highlighting for specific colors 8
Word VBA - Delete text from bulleted paragraphs 1
VBA word change keys 0
Change a great number of words in word files, with a macro as short as possible. 5

Top