Eu não sei sobre outros aplicativos, mas você pode usar um script como este com o TextEdit:
tell application "System Events" to tell process "TextEdit"
set {x, y} to value of attribute "AXSelectedTextRange" of text area 1 of scroll area 1 of window 1
end tell
tell application "TextEdit"
set color of characters x thru y of document 1 to {65535, 0, 0}
end tell