Se stia cambiando il colore di testo a colore rosso, questo dovrebbe funzionare per voi:
FindRedText secondario ()
Documento fioco come gamma
Regolar documento = ActiveDocument.Range
Con il documento. Ritrovamento
.ClearFormatting
. Font.Color = wdColorRed
. Involucro = wdFindStop
Mentre. Eseguire
Se documento. Font.ColorIndex = 6 allora
documento. Prescelto
MsgBox “correzione ha avuto bisogno di„, vbExclamation, “Transcriptionist ha immesso„
Concluder se
documento. wdCollapseEnd di crollo
Wend
Concluder con
Regolar documento = niente
Concludere il sommergibile
Come l'altro codice, potete rendere questo un autoopen anche, o lasciarlo come è e farlo funzionare quando volete.