Microsoft Office Forums - View Single Post - [Solved] Finding the position of a keyword in a seamless way

Guessed · 10-26-2020, 03:05 PM

If you don't want to change the selection, you use Ranges instead

Code:

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