印刷するために単語を呼び出します...
次のスクリプトを実行するには、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)