Function saveword () {
Var WRD = New ActiveXObject ("Word.Application")
Wrd.visible = true
WRD.Documents.Open ("E: /MYDOC.DOC")
Wrd.Application.actiVate ()
WRD.ActiveDocument.saveas ("E: /word2.htm", 8)
Wrd.quit ();
WRD = NULL
}
script>