Click here to Skip to main content
15,747,637 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
In MS Word, I have the following Macro, that replaces dots with slashes in highlighted text:
Selection.Find.Highlight = True
With Selection.Find
.Text = "."
.Replacement.Text = "/"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

How can I remove highlighting after each replacement execution?

What I have tried:

Dim rngTemp As Range
Set rngTemp = ActiveDocument.Range(Start:=0, End:=0)
With rngTemp.Find
.Highlight = True
With .Replacement
.Highlight = False
End With
.Execute Replace:=wdReplaceAll, Forward:=True, FindText:="", _
ReplaceWith:="", Format:=True
End With

But this code removes highlighting everywhere in the active document - while I need to remove it only where replacements have been done.
Updated 17-May-23 22:03pm

1 solution

I didn't test, and think you select a part of document manually, you apply your macro to selected text and you want your macro undo selection.

As far I remember ad a final line:

selection. Collapse
Share this answer

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900