Wenn sie Textfarbe zum Rot ändert, sollte dieses für Sie arbeiten:
VorFindRedText ()
Schwaches Doc. als Strecke
Einstellen Doc. = ActiveDocument.Range
Mit Doc. Entdeckung
.ClearFormatting
. Font.Color = wdColorRed
. Verpackung = wdFindStop
Während. Durchführen
Wenn Doc. Font.ColorIndex = 6 dann
Doc. Auserwählt
MsgBox „Korrektur brauchte“, vbExclamation, „Transcriptionist eingab“
Beenden wenn
Doc. Einsturz wdCollapseEnd
Wend
Mit beenden
Einstellen Doc. = nichts
Unterseeboot beenden
Wie der andere Code können Sie dieser ein autoopen auch bilden, oder es lassen wie ist und es laufen lassen, wenn Sie wünschen.