Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
  ActiveDocument.Range.Delete
  ActiveDocument.Range.Text = "Test"
  Set oRng = ActiveDocument.Words(1)
  Debug.Print oRng
  With oRng.Find
    .Text = "Test"
    If .Execute Then
      MsgBox "Found"
    Else
      MsgBox "Not found.  Why? Because the thing we are looking for exactly matches the search range." & _
             " We can't find ""Test"" IN the search range because ""Test"" IS the search range."
    End If
  End With
  'Now redefine the range.
  Set oRng = ActiveDocument.Range '(includes Words(1) and the end of document mark.
  Debug.Print oRng
  With oRng.Find
    .Text = "Test"
    If .Execute Then
      MsgBox "Found."
    End If
  End With
End Sub