Ligue para o Word to Print ...
A execução dos scripts a seguir requer definir o nível de segurança do IE para baixo ou definir esse controle ActiveX para ativar no nível de segurança intermediário, não se esqueça:
<html>
<head>
<title> BuildDocumentByScript </ititle>
</head>
<Baxt = "MyData" Border = 1align = Center>
<Tralign = Center>
<td> Nome do produto </td>
<Td> Descrição do produto </td>
<Td> Preço unitário do produto </td>
<td> grau de produto </td>
</tr>
<Tralign = Center>
<Td> Produto 1 </td>
<td> Este mais o mais </td>
<Tdalign = direita> 300.50 </td>
<Td> Nível 1 </td>
</tr>
<Tralign = Center>
<td> Produto 2 </td>
<td> Este mais o mais </td>
<Tdalign = direita> 300.50 </td>
<Td> Nível 1 </td>
</tr>
<Tralign = Center>
<td> Produto 3 </td>
<td> Este mais o mais </td>
<Tdalign = direita> 300.50 </td>
<Td> Nível 1 </td>
</tr>
</Tabld>
<inputType = buttonOnClick = "VBScript: BuildDoc '', 4" Value = "Build">
<Body>
</Body>
</html>
<scriptLanguage = "vBScript">
SubbuildDoc (TheTemplate, InttableRows)
Dimtable1
Settable1 = document.all.mydata
linha = tabela1.rows.length
SetobjwordDoc = createObject ("word.document")
ObjWordDoc.Application.visible = true
Dimthearray (4,4)
'Redimpreservethearray (4, linha)
COLNUM = Tabela1.Rows (1) .Cells.Length
fori = 0torow-1
forj = 0tocolnum-1
theArray (j+1, i+1) = tabela1.rows (i) .Cells (j) .innerhtml
próximo
próximo
intnumrows = 4
objworddoc.application.activedocument.paragraphs.add.range.insertfore ("Tabela para teste")
objworddoc.application.activedocument.paragraphs.add.range.insertfore ("")
objworddoc.application.activedocument.paragraphs.add.range.insertfore ("")
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)