Sub Demo()
With ActiveDocument.Sections.First.Range.Find
  .Text = "My Text"
  .ClearFormatting
  .Replacement.ClearFormatting
  .Format = False
  .Forward = True
  .Wrap = wdFindStop
  .MatchWildcards = True
  .Execute
  If .Found Then
    MsgBox .Text & vbCr & "found in Section 1.", vbInformation
  Else
    MsgBox .Text & vbCr & "NOT found in Section 1", vbCritical
  End If
End With
End Sub