You asked about something to find a specific string of text. What you posted does not do this. It simply changes the document to Arial 10. If you used Styles (which is how Word is supposed to be used!!), you could do it with:

Code:

Sub MakeArial()
With Selection
   .WholeStory
   .Style = "MyArial"
End With
End Sub