Appelez le mot à imprimer ...
L'exécution des scripts suivants nécessite de définir le niveau de sécurité de IE à faible ou de définir ce contrôle ActiveX pour activer au niveau de sécurité intermédiaire, n'oubliez pas:
<html>
<adal>
<Title> BuildDocumentScript </Title>
</ Head>
<TableId = "MyData" Border = 1Align = Center>
<Tralign = centre>
<TD> Nom du produit </td>
<TD> Description du produit </td>
<TD> Prix unitaire produit </td>
<TD> Grade du produit </td>
</tr>
<Tralign = centre>
<TD> Produit 1 </td>
<td> ce plus grand </td>
<Tdalign = droite> 300,50 </td>
<TD> Niveau 1 </td>
</tr>
<Tralign = centre>
<TD> Produit 2 </td>
<td> ce plus grand </td>
<Tdalign = droite> 300,50 </td>
<TD> Niveau 1 </td>
</tr>
<Tralign = centre>
<TD> Produit 3 </td>
<td> ce plus grand </td>
<Tdalign = droite> 300,50 </td>
<TD> Niveau 1 </td>
</tr>
</brd>
<portType = ButtonnonClick = "vbscript: buildDoc '', 4" value = "build">
<body>
</docy>
</html>
<criptLanguage = "vbscript">
Subbuilddoc (thetemplate, intTableRows)
Dimable1
Settable1 = document.all.mydata
row = table1.rows.length
SetObjWordDoc = createObject ("word.document")
Objworddoc.application.visible = true
DimtheArray (4,4)
'RedempreservertheArray (4, ligne)
colnum = table1.Rows (1) .cells.length
fori = 0torow-1
forj = 0tocolnum-1
thearray (j + 1, i + 1) = table1.Rows (i) .Cells (j) .innerhtml
suivant
suivant
intnumrows = 4
objworddoc.application.activeDocument.Paragraphs.add.range.insertBefore ("Tableau pour les tests")
objworddoc.application.activeDocument.Paragraphs.add.range.insertbefore ("")
objworddoc.application.activeDocument.Paragraphs.add.range.insertbefore ("")
SetrngPara = objworddoc.application.activecument.Paragraphs (1) .Range
Withrngpara
.Bold = true
.Paragraphformat.alignment = 1
.Font.name = "Arial"
.Font.size = 12
Fin
SetrngCurrent = objworddoc.application.activecument.Paragraphs (3) .Range
Settabcurrent = objworddoc.application.activecomente.tables.add (rngCurrent, intnumrows, 4)