Где находится инфа о кол-ве замененных слов?

[truthseeker]

Приветствую участников!
Вопрос такой.
При выполнении замены слов при помощи
Find.Execute Replace:=wdReplaceAll
необходимо знать, сколько реально слов было заменено. То есть то число, которое показывает, если делать замену при помощи диалога "Замена".
Я не программист, а продвинутый пользователь, который иногда пишет себе макросы для упрошения некоторых операций
Самостоятельно побродив по объектной модели и отладчику, не нашел ничего похожего, поэтому спрашиваю здесь.
Спасибо!

[Вождь]

Все молчат, а инфа есть Именно по Find - нет, зато есть по изменениям в документе, что позволяет узнать количество и области. Пример:

Sub Количество_замен()
    
Dim N As Long
    
    ActiveDocument.Revisions.AcceptAll ' принимаем все изменения
    ActiveDocument.TrackRevisions = True ' активируем контроль изменения
    With Selection.Find
        .Text = "111" ' найти
        .Replacement.Text = "222" ' заменить
        .Execute Replace:=wdReplaceAll ' поиск и замена
    End With
    N = ActiveDocument.Revisions.Count / 2 ' 1 замена = 1 удаление + 1 вставка
    MsgBox "Замен: " & CStr(N)
    ActiveDocument.TrackRevisions = False ' отключаем
    
End Sub

[truthseeker]

О, Вождь, потому все и молчат, что это, как оказывается, нетривиальное решение!

Спасибо за идею и фрагмент кода. Для меня, думаю, они сработают. Только ещё посмотрю, как ведёт себя AcceptAll.
Но... Неужели Ворд так внутренне подсчитывает, когда производится интерактивная замена через диалог "Замена"? Хм-хм...