Andrew V  was telling us:
Andrew V nous racontait que :

Try something like this:

'_______________________________________
Sub SelectRangeFind()

Dim myRange As Range

Set myRange = ActiveDocument.Range

With myRange.Find
   .Text = "Some text"
   .Execute
   If .Found Then
       With .Parent
           .Select
       End With
   End If
End With

End Sub
'_______________________________________

In fact, .Parent refers to the found range.

So you can put anything you would normally do with a range between the
       With .Parent

       End With

as in:

       With .Parent
           .Bold = True
           .Font.Name = "Arial"
           .Characters(1).Font.Color = wdColorBlue
       End With

You do not even have to select the found result.
And you can use a loop to apply those changes to all found items:

'_______________________________________
Sub SelectRangeFind()

Dim myRange As Range

Set myRange = ActiveDocument.Range

With myRange.Find
   .Text = "Some text"
   Do While .Execute
       With .Parent
           .Bold = True
           .Font.Name = "Arial"
           .Characters(1).Font.Color = wdColorBlue
       End With
   Loop
End With

End Sub
'_______________________________________