"Заменить всё" в режиме исправлений.

[Кукша12]

Некоторые тексты идут с непринятыми исправлениями.
Как сделать в них замены одних слов на другие "заменить все" ЗА ИСКЛЮЧЕНИЕМ тех слов, которые являются непринятыми исправлениями?

В ручном режиме, с запросом на исправление я могу отловить их по условию
Selection.Range.Revisions.Count <> 0
Но при автозамене такое дело не проходит - этот параметр нельзя задать в условии для Selection, поскольку он "только для чтения"

Как сделать замену Selection.Find в автомате для всего кроме исправлений?

[GSerg]

Отказаться от замены одной командой и крутить в цикле .Execute, пока находит, для каждой находки проверяя find.parent.revisions.count.

[Кукша12]

Да, похоже придётся так. Спасибо.