buildDoc函数在网络上很出名了,这个函数是将web页面中某个Table的内容全部导入到Word文档中进行分页打印。但是有一个缺陷是原来的buildDoc程序生成的Table在打印的时候不会打印出来Table的Border。于是我将该程序进行了修改,使得打印的时候能够打印出来黑色的Border。主要是在程序中加入了下面两句:
以下内容为程序代码:
objWordDoc.Application.ActiveDocument.Tables(1).Borders.InsideLineStyle = True
objWordDoc.Application.ActiveDocument.Tables(1).Borders.OutsideLineStyle = True
完整的程序如下:toWord.htm
<html>
<head>
<title>Build Document by Script</TITLE>
</HEAD>
<body>
<br>
<Table id="myData" border="0" cellpadding="5" cellspacing="1" bgcolor="#000000">
<Tr align=center bgcolor="#ffffff">
<Td>产品名称</Td>
<Td>产品描述</Td>
<Td>产品单价</Td>
<Td>产品等级</Td>
</Tr>
<Tr align=center bgcolor="#ffffff">
<Td>产品一</Td>
<Td>This is a test</Td>
<Td align=right>300.50</Td>
<Td>一级</Td>
</Tr>
<Tr align=center bgcolor="#ffffff">
<Td>产品二</Td>
<Td>This is a test</Td>
<Td align=right>300.50</Td>
<Td>一级</Td>
</Tr>
<Tr align=center bgcolor="#ffffff">
<Td>产品三</Td>
<Td>This is a test</Td>
<Td align=right>300.50</Td>
<Td>一级</Td>
</Tr>
<Tr align=center bgcolor="#ffffff">
<Td>产品一</Td>
<Td>This is a test</Td>
<Td align=right>300.50</Td>
<Td>一级</Td>
</Tr>
<Tr align=center bgcolor="#ffffff">
<Td>产品二</Td>
<Td>This is a test</Td>
<Td align=right>300.50</Td>
<Td>一级</Td>
</Tr>
<Tr align=center bgcolor="#ffffff">
<Td>产品三</Td>
<Td>This is a test</Td>
<Td align=right>300.50</Td>
<Td>一级</Td>
</Tr>
<Tr align=center bgcolor="#ffffff">
<Td>产品一</Td>
<Td>This is a test</Td>
<Td align=right>300.50</Td>
<Td>一级</Td>
</Tr>
<Tr align=center bgcolor="#ffffff">
<Td>产品二</Td>
<Td>This is a test</Td>
<Td align=right>300.50</Td>
<Td>一级</Td>
</Tr>
<Tr align=center bgcolor="#ffffff">
<Td>产品三</Td>
<Td>This is a test</Td>
<Td align=right>300.50</Td>
<Td>一级</Td>
</Tr>
<Tr align=center bgcolor="#ffffff">
<Td>产品一</Td>
<Td>This is a test</Td>
<Td align=right>300.50</Td>
<Td>一级</Td>
</Tr>
<Tr align=center bgcolor="#ffffff">
<Td>产品二</Td>
<Td>This is a test</Td>
<Td align=right>300.50</Td>
<Td>一级</Td>
</Tr>
<Tr align=center bgcolor="#ffffff">
<Td>产品三</Td>
<Td>This is a test</Td>
</html>