With ActiveDocument.Range.Find
            On Error Resume Next
                'поиск в начале слова
                .Text = "<" & Первое_слово1
                If Err.Number <> 0 Then MsgBox Err.Number & " " & Err.Description & " " & Первое_слово1
                'требуется, чтобы в нужном месте отключить действие строки 1) On Error GoTo ... 2) либо действие строки On Error Resume Next
On Error GoTo 0
                .Wrap = wdFindStop    'поиск остановить, остановит поиск по достижении конца
                'эта опция отвечает за поиск с использованием подстановочных знаков
                'не работает когда установлено в положение False, или её нет вообще
                ' если установлена в положение True, тогда работает
                .MatchWildcards = True
                Счётчик = 0
                Do While .Execute = True
                    '.Parent.Select 'выделит искомые слова
                    Счётчик = Счётчик + 1
                    If Счётчик > 1 Then GoTo huhu
                    
                Loop