Om hon ändrar text, färga till rött, detta bör fungera för dig:
Sub FindRedText ()
Dunkel doc som spänner
Uppsättning doc = ActiveDocument.Range
Med doc. Fynd
.ClearFormatting
. Font.Color = wdColorRed
. Sjal = wdFindStop
Stunder. Utför
Om doc. Font.ColorIndex = 6 därefter
doc. Valt
MsgBox ”den behövda korrigeringen”, vbExclamationen, ”Transcriptionist matar in”,
Avsluta om
doc. KollapswdCollapseEnd
Wend
Avsluta med
Uppsättning doc = ingenting
Avsluta suben
Gilla annat kodifierar, du kan göra detta en autoopen för, eller lämna den som är och kör den, när du önskar.