If she is changing text color to red, this should work for you:
Sub FindRedText()
Dim doc As Range
Set doc = ActiveDocument.Range
With doc.Find
.ClearFormatting
.Font.Color = wdColorRed
.Wrap = wdFindStop
While .Execute
If doc.Font.ColorIndex = 6 Then
doc.Select
MsgBox "Correction Needed", vbExclamation, "Transcriptionist Input"
End If
doc.Collapse wdCollapseEnd
Wend
End With
Set doc = Nothing
End Sub
Like the other code, you can make this one an autoopen too, or leave it as is and run it when you want.