Si ella está cambiando color de texto al rojo, éste debe trabajar para usted:
FindRedText secundario ()
Doc. dévil como gama
Fijar doc. = ActiveDocument.Range
Con el doc. Hallazgo
.ClearFormatting
. Font.Color = wdColorRed
. Abrigo = wdFindStop
Mientras que. Ejecutar
Si doc. Font.ColorIndex = 6 entonces
doc. Selecto
MsgBox “corrección necesitó”, vbExclamation, “Transcriptionist entró”
Terminar si
doc. wdCollapseEnd del derrumbamiento
Wend
Terminar con
Fijar doc. = nada
Terminar el submarino
Como el otro código, usted puede hacer éste un autoopen también, o dejarlo como es y funcionarlo cuando usted quiere.