* SelChange event of RTF control lcDelimiters = ",. " * SelLength = 0 - Nothing selected IF THIS.SelLength = 0 AND This.SelStart >= 3 ; AND (SUBSTR(This.text, This.SelStart,1) $ lcDelimiters) ; AND SUBSTR(This.text, This.SelStart-2, 2) = "UT" * Save Current settings for selected text lnSelStart = This.SelStart lnSelLength = This.SelLength lnSelColor = This.SelColor * Select UT and make it bold and red This.SelStart = This.SelStart - 3 This.SelLength = 2 This.SelBold = .T. This.SelColor = RGB(255,0,0) * Restore settings for selected text This.SelStart = lnSelStart This.SelLength = lnSelLength This.SelColor = lnSelColor This.SelBold = .F. ENDIF>What I need is this: