Нахождение всех слов в строке

If Not .Execute Then Beep 'если искомое слово не имеется, имеется один раз, имеется более одного раза - проверял лично
If .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

Option Compare Text 'если не различать прописные и строчные
'...
Счётчик = UBound(Split(ActiveDocument.Range.Text, Слово))

If Счётчик = 0  Then Beep
 
                If Not .Execute Then Beep

If Not .Execute Then Beep