[Sommaire] [Imprimer]

   1  //var logFile = fs.CreateTextFile("convertlog.txt", true);
   2  
   3  var source = WScript.Arguments(0);
   4  var target = WScript.Arguments(1);
   5  
   6  var PPApp;
   7  PPApp = new ActiveXObject("Powerpoint.Application");
   8  var Newdoc;
   9  PPApp.Visible = true;
  10  Newdoc = PPApp.Presentations.Open(source);
  11  Newdoc.SaveAs(target, 12);    // ppSaveAsHTML = 12
  12  PPApp.Quit();
  13  
  14  //logFile.Close();