Try:
Code:
Sub Macro1() '
' Macro1 Macro '
'
Selection.Find.ClearFormatting
Selection.Find.Highlight = True
With Selection.Find
.Text = "the"
.Replacement.Text = "the"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute
End With
Selection.Copy
End Sub
Your code sets up the find criteria but doesn't run the find. I haven't tried this, but I've done a lot of coding for replace. I expect it will work.
See
How to modify a recorded macro