Macro to look for highlighted text and delete it

[excelnut1954]

I want the macro to look through the document for any text that is
highlighted (it will be in yellow), and delete the text, and remove the
highlight.

I'd appreciate any help.
Thanks,
J.O.

 

[Greg Maxey]

Try:

Sub ScratchMacro()
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
With oRng.Find
.Highlight = True
While .Execute
oRng.Delete
Wend
End With
End Sub

 

[Helmut Weber]

Hi J.O.,

maybe this is sufficient:

Sub Test445()
Dim rDcm As Range
Set rDcm = ActiveDocument.Range
With rDcm.Find
.Highlight = True
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
End With
End Sub

HTH


--
Gruß

Helmut Weber, MVP WordVBA

"red.sys" & chr$(64) & "t-online.de"
Win XP, Office 2003 (US-Versions)

 

[excelnut1954]

I've been away from all this.... so, thanks to both of you for your
solutions. I'll try them today.
Thanks again
J.O.