Jeżeli ona być odmienianie tekst kolor czerwień, ty musieć dla ty:
Okręt podwodny FindRedText ()
Ciemnawy doc Pasmo
Set doc = ActiveDocument.Range
Z doc. Znalezisko
.ClearFormatting
. Font.Color = wdColorRed
. Opakunek = wdFindStop
Podczas Gdy. Wykonywać
Jeżeli doc. Font.ColorIndex = 6 Wtedy
doc. Wybiórka
MsgBox "Korekcja Potrzebować", vbExclamation, "Transcriptionist Wkład"
Kończyć Jeżeli
doc. Załamywać się wdCollapseEnd
Wend
Kończyć Z
Ustawiać doc = Nic
Kończyć Okręt podwodny
Jak the inny kod, ty móc ten jeden autoopen zbyt, lub opuszczać ono być i biegać ono gdy ty chcieć.