Se está mudando a cor de texto ao vermelho, este deve trabalhar para você:
FindRedText secundário ()
Doc não ofuscante como a escala
Ajustar doc = ActiveDocument.Range
Com doc. Achado
.ClearFormatting
. Font.Color = wdColorRed
. Envoltório = wdFindStop
Quando. Executar
Se doc. Font.ColorIndex = 6 então
doc. Seleto
MsgBox “correção necessário”, vbExclamation, “Transcriptionist entrou”
Terminar se
doc. wdCollapseEnd do colapso
Wend
Terminar com
Ajustar doc = nada
Terminar o submarino
Como o outro código, você pode fazer a este um autoopen também, ou deixá-lo como é e funcioná-lo quando você quer.