com直接从微软生成的Javaｓｃｒｉｐｔ

复制代码代码如下所示：



按脚本构建文档

word_onclick（）函数
{
无功mydocapp = null；
mydocapp =新的ActiveX对象（字。应用）；
mydocapp.application.visible =真；
无功mydoc = mydocapp.documents.add（）；

MyDocApp的选择。paragraphformat对齐= 1。
MyDocApp。选择范围。大胆=真；
MyDocApp。选择字体大小= 22；
MyDocApp。选择文本=休假申请表
mydocapp.selection.insertafter（；
MyDocApp.Selection.MoveRight（2,10）；
MyDocApp.Selection.TypeParagraph（）；
MyDocApp。选择字体。大胆= false；
MyDocApp。选择字体大小= 12；

无功mytable0 = mydoc.tables.add（mydocapp.selection.range，3,4）；
mytable0.cell（1,1）。范围。文本=请了假；
mytable0.cell（1,2）。范围。文本=张三；
mytable0.cell（1,3）。范围。文本=离开；
mytable0.cell（1,4）。范围。文本=2006-2-10 ；

mytable0.cell（2,1）。范围。文本=工号；
mytable0.cell（2,2）。范围。文本=32412；
mytable0.cell（2,3）。范围。文本=填充时间；
mytable0.cell（2,4）。范围。文本=2006-2-9 ；

mytable0.cell（3,1）。范围。文本=请假理由；
mytable0.cell（3,2）。范围。文本=冷；
mytable0.cell（3,3）。范围。文本=处理模式；
mytable0.cell（3,4）。范围。文本=病假；

变量范围= mydocapp.activedocument.content；
范围（崩溃）（0）；
range.insertafter（；
mydocapp.activedocument.content范围=；
范围（崩溃）（0）；

无功mytable2 = mydoc.tables.add（范围1,2）；
mytable2。柱（1），SetWidth（320,2）；
mytable2.cell（1,1）。范围。文本=签名 / /不要删除空间
mytable2.cell（1,2）。范围。文本=申请人签名；

尝试{
MyDocApp.ActiveDocument.SaveAs（E： javetoword .doc）；
} catch（异常）{
警报（浏览器安全设置过高，将文件保存到本地失败）；
MyDocApp.Documents.close（）；
MyDocApp.Application.quit（）；
mydocapp = null；
Window.close（）；
}
}



生成Word