'ищем текст
        '< в начале слова
        '[0-9]{1;2} - одна или две любые подряд цифры
        '"@" - указываем предыдущий один или более, "*" - указываем любое количество знаков
        .Text = "\>[0-9]@.[0-9]@.* [АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ]*\<"
        .Wrap = wdFindStop    'поиск остановить, остановит поиск по достижении конца
        'эта опция отвечает за поиск с использованием подстановочных знаков
        'не работает когда установлено в положение False, или её нет вообще
        'если установлена в положение True, тогда работает
        .MatchWildcards = True
        Счётчик = 0
        'явное объявление объекта - регулярные выражения
         Do While .Execute = True
            .Parent.Select    'выделит искомые слова
            Счётчик = Счётчик + 1
            ActiveDocument.Bookmarks.Add "Ancor" & Счётчик, Selection.Range
            Selection.MoveLeft Unit:=wdCharacter, Count:=1
            Selection.TypeText Text:="><A NAME='Ancor" & Счётчик & "'"
            'выделить в документе промежуток ...
            ActiveDocument.Range( _
                    Start:=ActiveDocument.Bookmarks("Ancor" & Счётчик).Range.End, _
                    End:=ActiveDocument.Bookmarks("Ancor" & Счётчик).Range.End).Select
         Loop
    End With