复制代码代码如下::
<html>
<kopf>
<meta http-äquiv = content-type content = "text/html; charset = utf-8">
<title> Dokument erstellen nach Skript </title>
<Script Language = "text/javaScript">
Funktion 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.Typaragraph ();
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;
Bereich.Collapse (0);
Bereich.insertafter ("/n");
Bereich = mydocapp.Activedocument.Content;
Bereich.Collapse (0);
var mytable2 = mydoc.tables.add (Bereich, 1,2);
mytable2.Columns (1) .Setwidth (320,2);
mytable2.cell (1,1) .Range.text = "申请人签名" // 空格勿删
mytable2.cell (1,2) .Range.text = "申请人的签名";
versuchen{
mydocapp.activedocument.saveas ("e: //javetoword.doc");
} catch (Ausnahme) {
alarm ("浏览器安全设置过高, 保存文件到本地失败");
mydocapp.documents.close ();
mydocapp.application.quit ();
mydocapp = null;
Fenster.CLOSE ();
}
}
</Script>
</Head>
<body>
<p> <a href = "JavaScript: Word_onclick ()"> 生成 Word </a> </p>
</Body>
</Html>