Set fill color of all words in list

Question

I want to change the fill color of all words in a document from a provided list of terms.
For example, the following script works perfectly in Quark:
set theIndexList to {"3rd Class", "4th class", "4th Class", "5th class", "5th Class", "7 lines of management/defense", "7 lines of management/defense", "7 Lines Of Management/Defense", "abalakov anchor", "Abalakov anchor", "Abalakov Anchor", "adze", "Adze", "Adze", "alpine rock", "Alpine rock", "Alpine Rock", "anchor", "Anchor", "Anchor"}
tell application "QuarkXPress™ 4.11"
     tell document 1
         tell story 1
             repeat with currentWord in theIndexList
                 try
                     set (the color of every text where it is currentWord) to "Green"
                 end try
             end repeat
         end tell
     end tell
end tell
The purpose of this script is to highlight words for later indexing. I need to read through the document, see words someone else has chosen for indexing, then add them selectively to the index.
InDesign CS, Mac OSX 10.3.9

Answer 1

>It's not a question of which program has more complex object model
Actually, it is largely. Search and replace in Quark relied on a combination of AppleScript whose clauses and a slightly odd definition of its text class. This made searches very simple, but it also meant they were restricted in what they could do. InDesign uses a more complex model, and exposes the full find/change engine; it's not as straight-forward, but it lets you do things that wouldn't be possible if they stuck to the whose clause approach.
In fact you can use whose clauses similarly in InDesign, with one catch: InDesign has a different definition of what constitutes text (there is only 1 text per story), so it will only work if you're looking for one of the classes like words, lines, text style ranges, etc.
I hesitate to rewrite the the js version in AS for CS because I don't have CS installed here. And there's an oddity involving color searches that makes it a bit more complicated than it should be. But it's very similar to the javascript.
> Because this is an AppleScript forum
I'm not sure what gave that impression, but it's far from so.