Вызовите слово для печати ...
Запуск следующих сценариев требует установления уровня безопасности IE на LOW или установить этот элемент управления ActiveX для включения на промежуточный уровень безопасности, не забывайте:
<html>
<голова>
<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> это
<Tdalign = справа> 300.50 </td>
<TD> Уровень 1 </td>
</Tr>
<Tralign = center>
<TD> Продукт 2 </TD>
<Td> это
<Tdalign = справа> 300.50 </td>
<TD> Уровень 1 </td>
</Tr>
<Tralign = center>
<TD> Продукт 3 </TD>
<Td> это
<Tdalign = справа> 300.50 </td>
<TD> Уровень 1 </td>
</Tr>
</Tabld>
<inputType = buttononClick = "vBScript: buildDoc ', 4" value = "build">
<Тело>
</Body>
</Html>
<scriptlanguage = "vbscript">
Subbuilddoc (Theteplate, Inttablerows)
DimTable1
settable1 = document.all.mydata
row = table1.rows.length
SetObjworddoc = createObject ("word.document")
Objworddoc.application.visible = true
DimTheArray (4,4)
'Redimpreservethearray (4, ряд)
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.paragraphs.add.range.insertbefore («Таблица для тестирования»)
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
Энд
Setrngcurrent = objworddoc.application.activedocument.paragraphs (3) .range
SettabCurrent = objworddoc.application.activedocument.tables.add (rngcurrent, Intnumrows, 4)