Если она изменяет цвет текста к красному цвету, то это должно работать для вас:
Sub FindRedText ()
Тусклый doc как ряд
Установите doc = ActiveDocument.Range
С doc. Находка
.ClearFormatting
. Font.Color = wdColorRed
. Обруч = wdFindStop
Пока. Исполните
Если doc. Font.ColorIndex = 6 после этого
doc. Отборно
MsgBox «коррекция», vbExclamation, «Transcriptionist Input»
Закончитесь если
doc. wdCollapseEnd сброса давления
Wend
Закончитесь с
Установите doc = ничего
Закончите подводную лодку
Как другое Кодий, вы можете сделать это одним autoopen слишком, или выходите оно как и побегите оно когда вы хотите.