Si elle change la couleur des textes en rouge, ceci devrait fonctionner pour vous :
FindRedText secondaire ()
Faible Doc. comme gamme
Placer Doc. = ActiveDocument.Range
Avec le Doc. Trouvaille
.ClearFormatting
. Font.Color = wdColorRed
. Enveloppe = wdFindStop
Tandis que. Exécuter
Si Doc. Font.ColorIndex = 6 puis
Doc. Choisi
MsgBox « correction a eu besoin », vbExclamation, « Transcriptionist a entré »
Finir si
Doc. wdCollapseEnd d'effondrement
Wend
Finir avec
Placer Doc. = rien
Finir le sous-marin
Comme l'autre code, vous pouvez faire à celui-ci un autoopen aussi, ou le laisser comme est et le courir quand vous voulez.