Als zij tekstkleur in rood verandert, zou dit voor u moeten werken:
Sub FindRedText ()
Schemerig doc. als Waaier
Vastgesteld doc. = ActiveDocument.Range
Met doc. Vind
.ClearFormatting
. Font.Color = wdColorRed
. Omslag = wdFindStop
Terwijl. Voer uit
Als doc. Font.ColorIndex = 6 toen
doc. Selecteer
MsgBox „Nodig Correctie“, vbExclamation, „Ingevoerde Transcriptionist“
Eind als
doc. Instorting wdCollapseEnd
Wend
Eind met
Vastgesteld doc. = niets
Sub van het eind
Als de andere code, kunt u dit één maken autoopen ook, of verlaat het zoals is en het in werking stellen wanneer u wilt.