AppleScript: assign characterspec to text in quarkxpress document

(*
qxp_assign_characterpec_01.applescript

Assign characterspec to a specific text.
*)

tell application "QuarkXPress Passport"
    tell document 1
        set character style of every text of every story whose it = "MY_TEXT_TO_FORMAT" to character spec "THE_CHARCTERSPEC_NAME"
    end tell
end tell