Hi,
I am copying range of text from Excel. I need to open a word document and then find a text and replace that text with the copied text from the excel. I am doing something like this.

lsValue="<*Text"
Set TheRange = rLoopCells.Offset(1, 0).Resize(lsRowValue, lsColumnValue)
TheRange.Select
TheRange.Copy
'Find the text and paste the copied text
With moDocument.ActiveWindow .Document.Content.Find.Text = lsValue
'.Selection.Find.ClearFormatting
'.Selection.Find.Forward = True
'.Selection.Find.Text = lsValue '.Selection.Find.Execute
'If .Selection.Find.Execute(lsValue) Then If .Document.Content.Find.Execute(lsValue) Then .Selection.PasteSpecial MsgBox "Found"
End If
End With

But I am unsuccessful. Any help would be greatly appreciated.

Thanks in advance.
Sanjay.