Better Text Object Selection Based on Text Characteristics or Object Type

I did some searching this morning and found an Applescript that selects text objects based on character formatting. I modified it slightly to fit my needs. In case anyone in the future has the same need, here's the version that selects any text object containing text whose horizontal scale is less than 100%. Modifying it to look for other text characteristics would be pretty easy:

tell application "Adobe Illustrator"
tell current document
set theText to every text frame whose editable is true
repeat with t in theText
try
set s to horizontal scale of text of text 1 of t
if s < 100 then
set selected of t to true
else
set selected of t to false
end if
end try
end repeat
end tell
end tell