Panggil kata untuk mencetak ...
Menjalankan skrip berikut memerlukan pengaturan tingkat keamanan IE ke rendah, atau pengaturan kontrol ActiveX untuk mengaktifkan di tingkat keamanan menengah, jangan lupa:
<Html>
<head>
<title> builddocumentByscript </iteme>
</head>
<TableId = "mydata" border = 1lign = center>
<Tralign = center>
<td> Nama produk </td>
<td> Deskripsi Produk </td>
<td> Harga unit produk </td>
<td> Grade Produk </td>
</tr>
<Tralign = center>
<td> Produk 1 </td>
<td> thisisastest </td>
<Tdalign = right> 300.50 </td>
<td> Level 1 </td>
</tr>
<Tralign = center>
<td> Produk 2 </td>
<td> thisisastest </td>
<Tdalign = right> 300.50 </td>
<td> Level 1 </td>
</tr>
<Tralign = center>
<td> Produk 3 </td>
<td> thisisastest </td>
<Tdalign = right> 300.50 </td>
<td> Level 1 </td>
</tr>
</Tabld>
<inputType = buttonOnclick = "vbscript: builddoc '', 4" value = "build">
<body>
</body>
</html>
<scriptLanguage = "vbscript">
SubbuildDoc (thetemplate, inttablerow)
Dimtable1
settable1 = document.all.mydata
baris = table1.rows.length
Setobjworddoc = createObject ("word.document")
ObjwordDoc.application.visible = true
DiMtheArray (4,4)
'Redimpreservethearray (4, baris)
colnum = Table1.rows (1) .cells.length
fori = 0Torow-1
forj = 0tocolnum-1
theArray (j+1, i+1) = tabel1.rows (i) .cells (j) .innerHtml
Berikutnya
Berikutnya
intnumrows = 4
ObjwordDoc.Application.ActiveDocument.Paragraphs.add.range.insertbefore ("Tabel untuk Pengujian")
ObjwordDoc.Application.ActiveDocument.Paragraphs.add.range.insertbefore ("")
ObjwordDoc.Application.ActiveDocument.Paragraphs.add.range.insertbefore ("")
SetRngpara = objwordDoc.application.activeDocument.paragraphs (1) .range
Withrngpara
.Bold = true
.Paragraphformat.alignment = 1
.Font.name = "Arial"
.Font.size = 12
Endwith
SetRngCurrent = objwordDoc.application.activeDocument.paragraphs (3) .range
Settabcurrent = objworddoc.application.activeDocument.tables.add (rngcurrent, intnumrows, 4)