Поиск-Find

[Скрипт]

Sasha_Smirnov, программа "Word" с помощью "Найти и заменить" и без замены определяет, сколько раз встречается слово, но в VBA такого нет. Не всегда то, что есть в программе "Word", можно сделать и в VBA.

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

может я туплю, но что надо сделать чтобы код зашёл во вторую строчку:

If Not .Execute Then Beep 'если искомое слово не имеется, имеется один раз, имеется более одного раза - проверял лично
If .Execute Then Beep 'если искомое слово ... хз????

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

Раз так сложно идёт обсуждение, выкладываю весь код - пробу
в файле не было сначала искомого слова
Cлово = "аблактируем"
потом я его добавил, стало оно одно
потом я его ещё добавил, стало их два
и никогда не заходило в ветку If .Execute Then
1 когда туда зайдёт??
2 смысл строки If Not .Execute Then Beep если в неё заходит когда
искомое слово не имеется
искомое слово имеется один раз
искомое слово имеется более одного раза
вот код:

Sub йй()

 Cлово = "аблактируем"
                       
            'проверка повторяемости слова
            With ActiveDocument.Range.Find
                
                .Text = Cлово
                .Wrap = wdFindStop    'поиск остановить, остановит поиск по достижении конца
                Счётчик = 0
                'Execute - выполнять
                Do While .Execute = True
                    
                    Счётчик = Счётчик + 1
                Loop
                If Not .Execute Then Beep '... можно узнать повторяемость слова более двух раз только Do While-Loop
                If .Execute Then Beep '... можно узнать повторяемость слова более двух раз только Do While-Loop
                MsgBox$ Счётчик
            End With
            
            End Sub

[Скрипт]

Ципихович Эндрю, в эту строку кода:

If Not .Execute Then Beep

код заходит после цикла, который осуществляет поиск. Цикл заканчивается, когда уже искомое не ищется. Соответственно код после цикла ничего не находит.

[Sasha_Smirnov]

Сообщение от Sasha_Smirnov

Word, однако, это определяет — если при замене (Ctrl-h) нажать "Заменить все"!

А вот и метод: programmersforum.ru/showthread.php?t=238629#2 — Вождь зна-а-ает!

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

видел, респект вождю!!!!!!!

[Nicko1622]

Не знаю , продолжить ли тему , или новую начать.