macro to delete all text that isn't highlighted

[DocA]

Hi,

How can I go about creating a macro to delete all text that isn't
highlighted?

Thanks,

Adrian

 

[DocA]

It's okay, I found out how to do it.

 

[Mark Eidemiller]

Could you let us know how. I'd be interested. Thanks.

 

[DocA]

Sure. It might not be the best way to do it, but it works:

Selection.Find.Highlight = False
With Selection.Find
.Text = "*"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.CorrectHangulEndings = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll