Cleaning up script

Question

Hello All
We often translate indesign files using a CAT tool to open the idml file. But most of the InDesign files we are sent have been created by people who take a great many short cuts to get things to fit, which maybe good for them but not for us.
We need a script that can set all kerning to 0 or a constant value throughout a document, remove all stretched text and change any thing with ALL CAPS to true uppercase.
There are a few more niggly things we have to do to clean it up which can take a few hours for a large document so it would be good it there was a script that could do this or if anyone knows how to create one for us we would be happy to work with you to create it.

Answer 1

Here is a new version:
const kerningConstant = 0;
var doc = app.activeDocument,
stories = doc.stories,
story, text, s, t;
for (var s = 0; s < stories.length; s++) {
     story = stories[s];
     for (var t = 0; t < story.texts.length; t++) {
          text = story.texts[t];
          text.kerningValue = kerningConstant;
          text.verticalScale = 100;
          text.horizontalScale = 100;
          ChangeCase(text);
function ChangeCase(text) {
     var i, found;
     if (text.contents != "") {
          app.findGrepPreferences = app.changeGrepPreferences = NothingEnum.nothing;
          app.findGrepPreferences.findWhat = ".+";
          app.findGrepPreferences.capitalization = Capitalization.ALL_CAPS;
          var found = text.findGrep();
          if (found.length > 1) {
               for (i = 0; i < found.length; i++) {
                    // $.writeln( i + " - " + found[i].constructor.name + "/"+ found[i].contents );
                    found[i].changecase(ChangecaseMode.UPPERCASE);
               app.changeGrepPreferences.capitalization = Capitalization.NORMAL;
               text.changeGrep();