Sub aTest()
  Dim aRng As Range
  Set aRng = ActiveDocument.Range
  With aRng.Find
    .ClearFormatting
    .Text = "keyword"
    .Font.Size = 10
    .Font.Name = "Verdana"
    .Forward = True
    .Wrap = wdFindStop
    .Execute
    If .Found = True Then
      MsgBox "Found at: " & aRng.Start
    Else
      MsgBox "Not found"
    End If
  End With
End Sub