印刷するために単語を呼び出します...
次のスクリプトを実行するには、IEのセキュリティレベルを低く設定するか、中間セキュリティレベルで有効にするためにそのActiveXコントロールを設定する必要があります。忘れないでください。
<html>
<head>
<title> builddocumentbyscript </title>
</head>
<tableId = "mydata" border = 1align = center>
<tralign = center>
<td>製品名</td>
<td>製品の説明</td>
<td>製品単価</td>
<td>製品グレード</td>
</tr>
<tralign = center>
<td>製品1 </td>
<td> thisisastest </td>
<tdalign = right> 300.50 </td>
<td>レベル1 </td>
</tr>
<tralign = center>
<td>製品2 </td>
<td> thisisastest </td>
<tdalign = right> 300.50 </td>
<td>レベル1 </td>
</tr>
<tralign = center>
<td>製品3 </td>
<td> thisisastest </td>
<tdalign = right> 300.50 </td>
<td>レベル1 </td>
</tr>
</tabled>
<inputType = buttonNclick = "vbscript：builddoc ''、4" value = "build">
<body>
</body>
</html>
<scriptlanguage = "vbscript">
subbuilddoc（thetemplate、inttablerows）
dimtable1
settable1 = document.all.mydata
row = table1.rows.length
setobjworddoc = createObject（ "word.document"）
objworddoc.application.visible = true
dimthearray（4,4）
'RedimpreServethearray（4、row）
colnum = table1.rows（1）.cells.length
fori = 0torow-1
forj = 0tocolnum-1
thearray（j+1、i+1）= table1.rows（i）.cells（j）.innerhtml
次
次
intnumrows = 4
objworddoc.application.activedocument.add.range.insertbefore（ "テストのテーブル"）
objworddoc.application.activedocument.add.range.insertbefore（ ""）
objworddoc.application.activedocument.add.range.insertbefore（ ""）
setrngpara = objworddoc.application.activedocument.paragraphs（1）.range
withrngpara
.bold = true
.paragraphformat.alignment = 1
.font.name = "arial"
.font.size = 12
終わりに
setrngcurrent = objworddoc.application.activedocument.paragraphs（3）.range
setabcurrent = objworddoc.application.activedocument.tables.add（rngcurrent、intnumrows、4）