Убыстрение макроса при поиске слов

[Ципихович Эндрю]

Было у меня ранее в коде так:

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

насоветовали для убыстрения сделать так:

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

Но это место If Not ActiveDocument.Range.Find.Execute Then
в коде не верно обсчитывается, что не так?

[Скрипт]

Пункт 1

Ципихович Эндрю, вот это может замедлять работу кода:

.Parent.Select 'выделит искомые слова

Нужные действия с найденным можно делать через "Parent", который представляет собой объект "Range".


Пункт 2

Если строка в переменной "Сгенерированные_глаголы" очень длинная получается, то тогда лучше формирование переменной "Сгенерированные_глаголы " разбить на две части:

1. в одной переменной накапливается результат, например, десяти действий;
2. затем данные из переменной заносятся в переменную "Сгенерированные_глаголы";
3. первая переменная обнуляется и заново.

[Ципихович Эндрю]

ошибочка была эта строка

'.Parent.Select 'выделит искомые слова

была закоментирована
вопрос то сейчас в том, что строка

 If Not ActiveDocument.Range.Find.Execute Then

в коде не верно обсчитывается, что не так?
и уже решён, спасибо