on repTextEditColor(targColor, newColor)
　　set hitIndex to {}
　　
　　tell application "TextEdit"
　　　　tell text of front document
　　　　　　set colList to color of every attribute run
　　　　end tell
　　end tell
　　
　　set hitIndex to (current application’s SMSForder’s indexesOfItem:targColor inArray:(colList) inverting:false) as list
　　
　　tell application "TextEdit"
　　　　tell text of front document
　　　　　　repeat with i in hitIndex
　　　　　　　　ignoring application responses
　　　　　　　　　　set color of attribute run (i + 1) to newColor –0 based index to 1 based index conversion
　　　　　　　　end ignoring
　　　　　　end repeat
　　　　end tell
　　end tell
end repTextEditColor

★Click Here to Open This Script