Counting specific words aspect for statistic (CS3)

Question

Hi! everybody!
I'm looking forward a script using Adobe "Extend Script Toolkit", that could allow me to count (statistics) all specific colored words (in red in my case) that I have in my Indesign CS3 document.
A friendly French guy sended me that script test code but it didn't work fine on Extend Script Toolkit
Déclarer variables
var_Compteur [entier]
var_Attribut_Couleur_Mot [string]
var_Mot  [string]
Initialiser variables
var_Compteur = 0
var_Attribut_Couleur_Mot = ""
var_Mot =  ""
Début boucle Tant que
var_mot = non  vide
si var_Attribut_Couleur_Mot = "Rouge"
alors var_Compteur = var_Compteur +1
=> mot  suivant
Fin tant que
Fin Boucle
Afficher var_Compteur
Please help!!!!!
Thanks a lot!

Answer 1

Here the code done by peter (megathanks!!!) :
app.findTextPreferences =  null;
app.findTextPreferences.fillColor =  "red";
//set some options here
app.findChangeTextOptions.caseSensitive =  true;
app.findChangeTextOptions.wholeWord  =  true;
app.findChangeTextOptions.includeFootnotes = true;
alert   (app.activeDocument.findText().length);
Sadly the script don't work I got an error to the line 2 : app.findTextPreferences.fillColor =  "red";
could someone tell me what is wrong?
Again thanks a lot to Peter