<?xml version="1.0" encoding="shift_jis" ?>
<job>
<script language="JScript">
<![CDATA[

/********************************************************
 *
 *  WebClass 用 Word → HTML 生成プログラム
 *
 *  Copyright (c) 2009 AOK. All Rights Reserved.
 *
 ********************************************************/
var dir = ".\\html"; /* Word doc 置き場 */

/********************************************************
 *
 *  以下は触らないように！
 *
 ********************************************************/
var fso = new ActiveXObject("Scripting.FileSystemObject");
var shell = new ActiveXObject("WScript.Shell");
var word = new ActiveXObject("Word.Application");

/********************************************************
 *
 *  doc -> html の生成
 *
 ********************************************************/
word.visible = false;
var files = fso.GetFolder(dir).files;
var fc = new Enumerator(files);
for (; !fc.atEnd(); fc.moveNext()) {
  var s = '' + fc.item();
  if (s.match(/((\w+)\.doc)$/)) {
    word.Documents.Open("\""+s+"\"", false, true);
    var d = s.replace(/\.doc$/, '.html');
    word.ActiveDocument.SaveAs("\""+d+"\"", 8);
    word.ActiveDocument.Close(0);
  }
}
word.Quit(0);

/********************************************************
 *
 *  完了報告
 *
 ********************************************************/
WScript.Echo('complete !');

]]>
</script>
</job>