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

Selection.Replace What:="<([0-9]{1,5})>([-|^=])<([0-9]{1,5})>", Replacement _
:="<Pages>^&</Pages>", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase _
:=False, SearchFormat:=False, ReplaceFormat:=False

Thanks for your reply. is n't it not support with Do while option, since i am trying to apply XML schema in the loop. Like below.

Do While myrange.Find.Execute
msgbox(selection.text)
ActiveDocument.XMLNodes.Add "Pages", "Schema"
Loop

it would be grate that if i get the below thru find and replace.

In a selected para only i need to find Pages and i need to apply xml tag <Page> and then with in the pages the first page should be with <Fp> and another with <Lp>.

Can anybody help me on this?