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>.