Thanks macropod for the advice and help .


This code was modified is working well , this is what I want, but it does not work in the text box, can possible modify it to be working in the text box
Greetings to all

Sub FindIt()
Dim blnFound As Boolean



Dim rngFound As Range
Dim strTheText As String


Application.ScreenUpdating = False
For i = 0 To 4
Selection.HomeKey wdStory
Selection.Find.Text = "TARIQ"
blnFound = Selection.Find.Execute
If blnFound Then
Selection.MoveStartWhile wdWord
Set rng1 = Selection.Range

ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="FirstName"
End If
'move back to beginning
Selection.HomeKey wdStory
Next
Application.ScreenUpdating = True
End Sub