求救！怎么在服务器端将HTML页面转换为WORD？

[chinaLinCT]

我有很多HTML页面，带图片，想在服务器端转化为Word文件，各位大侠有没有良策？

[DeltaCat]

调用 WORD.APPLICATION

打开你的HTML文件，然后存为 WORD 文档

[zhangxdd]

关注

[aspczlover]

呵呵，只能上传了

[昵称都被占完求了]

关注！！

[787912]

<Table id="myData" border=1 align=center>
<Tr align=center>
<Td>产品名称</Td>
<Td>产品描述</Td>
<Td>产品单价</Td>
<Td>产品单价</Td>
<Td>产品等级</Td>
<Td>编号</Td>
</Tr>
<%for i=1 to 16%>
<Tr align=center>
<Td>产品一</Td>
<Td>This is a test</Td>
<Td align=right><%=i%></Td>
<Td align=right>300.50</Td>
<Td>一级</Td>
<Td><%=i%></Td>
</Tr>
<%next%>
</Table>
<input type=button onclick="vbscript:buildDoc" value="转换成Word文档">
<input type=hidden name="RowsNumber" value="51">
<script language="vbscript">
Sub buildDoc
Set objWordDoc = CreateObject("Word.Document")
ObjWordDoc.Application.Visible=True
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("表格")
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")
Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range
With rngPara
.Bold = True
.ParagraphFormat.Alignment = 1
.Font.Name = "Arial"
.Font.Size = 12
End With
Set rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range
intNumrows = document.all.myData.rows.length ''''自动计算行数
colnum = document.all.myData.rows(1).cells.length '''''自动技术列数
Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,intNumrows,colnum)
For i = 0 to intNumrows-1
for j = 0 to colnum-1
objWordDoc.Application.ActiveDocument.Tables(1).Rows(i+1).Cells(j+1).Range.InsertAfter document.all.myData.rows(i).cells(j).innerText
objWordDoc.Application.ActiveDocument.Tables(1).Rows(i+1).Cells(j+1).Range.ParagraphFormat.alignment=1
next
Next
objWordDoc.Application.ActiveDocument.SaveAs "tempSample.doc", 0,False,"",True,"",False,False,False, False,False
End Sub
</script>

[chinaLinCT]

TO:alexzhang00(三角猫(sjcatsoft))
图片没法写入啊