复制代码代码如下 :
<html>
<헤드>
<meta http-equiv = content-type content = "text/html; charset = utf-8">
<title> 스크립트 </title>에 의해 문서 빌드
<script language = "text/javaScript">
함수 Word_onClick ()
{
var mydocapp = null;
mydocapp = new ActiveXobject ( "Word.application");
mydocapp.application.visible = true;
var mydoc = mydocapp.documents.add ();
mydocapp.selection.paragraphformat.alignment = 1
mydocapp.selection.range.bold = true;
mydocapp.selection.font.size = 22;
mydocapp.selection.text = "请假申请单"
mydocapp.selection.insertafter ( "/n");
mydocapp.selection.moveright (2,10);
mydocapp.selection.typeparagraph ();
mydocapp.selection.font.bold = false;
mydocapp.selection.font.size = 12;
var mytable0 = mydoc.tables.add (mydocapp.selection.range, 3,4);
mytable0.cell (1,1) .range.text = "请假人";
mytable0.cell (1,2) .range.text = "张三";
mytable0.cell (1,3) .range.text = "请假时间";
mytable0.cell (1,4) .range.text = "2006-2-10";
mytable0.cell (2,1) .range.text = "工号";
mytable0.cell (2,2) .range.text = "32412";
mytable0.cell (2,3) .range.text = "填表时间";
mytable0.cell (2,4) .range.text = "2006-2-9";
mytable0.cell (3,1) .range.text = "请假原因";
mytable0.cell (3,2) .range.text = "感冒";
mytable0.cell (3,3) .range.text = "处理方式";
mytable0.cell (3,4) .range.text = "病假";
var range = myDocApp.ActivedOcument.Content;
Range.CollApse (0);
range.insertafter ( "/n");
범위 = myDocApp.ActivedOcument.Content;
Range.CollApse (0);
var mytable2 = mydoc.tables.add (범위, 1,2);
mytable2.columns (1) .setwidth (320,2);
mytable2.cell (1,1) .range.text = "申请人签名"// 空格勿删
mytable2.cell (1,2) .range.text = "申请人的签名";
노력하다{
mydocapp.activedocument.saveas ( "e : //javetoword.doc");
} catch (예외) {
경고 ( "浏览器安全设置过高, 保存文件到本地失败");
mydocapp.documents.close ();
mydocapp.application.quit ();
mydocapp = null;
Window.Close ();
}
}
</스크립트>
</head>
<body>
<p> <a href = "javaScript : word_onclick ()"> 生成 word </a> </p>
</body>
</html>