With ActiveDocument.Range.Find
    .Text = "<" & Первое_слово & "," 'поиск в начале слова
    .Wrap = wdFindStop 'поиск остановить, остановит поиск по достижении конца
    .MatchWildcards = True 'эта опция отвечает за поиск с использованием подстановочных знаков, не работает когда установлено в положение False, или её нет вообще, если установлена в положение True, тогда работает
    Счётчик = 0
    Do While .Execute = True
     'выделит искомые слова
    .Parent.Select
    Искомое = Selection.Text
     'или
    Искомое = .Parent
    Счётчик = Счётчик + 1
    Loop
End With