Find and Replace within range

[anil3b2]

Hi All,



I have selected one para and i need to find and replace something like below but it replaces in all places in the document rather than within that range/selection. In the below code instead "myrange" if i use "Selection." then also i get the same result. Please help me.

With myrange.Find
.text = "<([0-9]{1,5})>([-|^=])<([0-9]{1,5})>"
.Replacement.text = "<Pages>^&</Pages>"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWildcards = True
End With
Do While myrange.Find.Execute
msgbox(selection.text)
Loop