Llame a la palabra para imprimir ...
Ejecutar los siguientes scripts requiere configurar el nivel de seguridad de IE en bajo, o configurar ese control ActiveX para habilitar en el nivel de seguridad intermedio, no olvide:
<html>
<Evista>
<title> buildDocumentByscript </title>
</ablo>
<TableID = "myData" borde = 1Align = Center>
<Tralign = Center>
<TD> Nombre del producto </td>
<TD> Descripción del producto </td>
<TD> PRESIO UNIDAD DEL PRODUCTO </td>
<TD> Grado de producto </td>
</tr>
<Tralign = Center>
<TD> Producto 1 </td>
<TD> thisisastest </td>
<Tdalign = right> 300.50 </td>
<TD> Nivel 1 </td>
</tr>
<Tralign = Center>
<TD> Producto 2 </td>
<TD> thisisastest </td>
<Tdalign = right> 300.50 </td>
<TD> Nivel 1 </td>
</tr>
<Tralign = Center>
<TD> Producto 3 </td>
<TD> thisisastest </td>
<Tdalign = right> 300.50 </td>
<TD> Nivel 1 </td>
</tr>
</labld>
<inputType = ButtonOnClick = "VBScript: BuildDoc '', 4" Value = "Build">
<Body>
</body>
</Html>
<scriptLanguage = "vBscript">
SubbuildDoc (thetEmplate, inttablerows)
Dimtable1
settable1 = document.all.mydata
fila = tabla1.rows.length
Setobjworddoc = createObject ("word.document")
Objworddoc.application.visible = true
Dimthearray (4,4)
'REDIMPRESVETHEARRAY (4, fila)
colnum = table1.rows (1) .Cells.length
fori = 0TOROW-1
forj = 0Tocolnum-1
Thearray (j+1, i+1) = tabla1.rows (i) .cells (j) .innerhtml
próximo
próximo
intnumrows = 4
objworddoc.application.activedOcument.paragraphs.add.range.insertbefore ("Tabla para la prueba")
objworddoc.application.activeDocument.paragraphs.add.range.insertbefore ("")
objworddoc.application.activeDocument.paragraphs.add.range.insertbefore ("")
Setrngpara = objworddoc.application.activedOcument.Paragraphs (1). Range
Withrngpara
.Bolle = verdadero
.Paragraphformat.alignment = 1
.Font.name = "Arial"
.Font.size = 12
Fin
Setrngcurrent = objworddoc.application.activeDocument.parabraphs (3) .range
Settabcurrent = objworddoc.application.activeDocument.tables.add (rngcurrent, intnumrows, 4)