当前位置:首页 >> 互联网 >>

怎样把网页中的表格转换为Word文档?

怎样把网页中的表格转换为 Word 文档?

用下面的办法转换即可: <Table id="myData" border=1 align=center> <Tr align=center> <Td>表格转换</Td> <Td>表格转换</Td> <Td>表格转换</Td> <Td>表格转换</Td> </Tr> <Tr align=center> <Td>表格转换</Td> <Td>表格转换</Td> <Td align=right>表格转换</Td> <Td>表格转换</Td> </Tr> <Tr align=center> <Td>表格转换</Td> <Td>表格转换</Td> <Td align=right>表格转换</Td> <Td>表格转换</Td> </Tr> <Tr align=center> <Td>表格转换</Td> <Td>表格转换</Td> <Td align=right>表格转换</Td> <Td>表格转换</Td> </Tr> </Table> <center><input type=button onclick="vbscript:buildDoc '',4" value="转换成 Word 文档"><script language="vbscript"> Sub buildDoc(theTemplate,intTableRows) Dim Table1 set Table1 = document.all.myData row = Table1.rows.length Set objWordDoc = CreateObject("Word.Document") ObjWordDoc.Application.Visible=True Dim theArray(4,4) 'Redim Preserve theArray(4,row) colnum = Table1.rows(1).cells.length for i=0 to row-1 for j=0 to colnum-1

theArray(j+1,i+1) = Table1.rows(i).cells(j).innerHTML next next intNumrows = 4 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 Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,intNumrows,4) for i = 1 to colnum objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.Inse rtAfter theArray(i,1) objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.Par agraphFormat.alignment=1 next tabRow = 2 For j = 2 to intNumrows 'ObjWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Borders.En able=False objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(1).Ran ge.InsertAfter theArray(1,j) objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(1).Ran ge.ParagraphFormat.alignment=1 objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(2).Ran ge.InsertAfter theArray(2,j) objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(2).Ran ge.ParagraphFormat.alignment=1

objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Ran ge.InsertAfter FormatCurrency(theArray(3,j)) objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Ran ge.ParagraphFormat.alignment=2 objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Ran ge.InsertAfter theArray(4,j) objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Ran ge.InsertAfter Chr(10) objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Ran ge.ParagraphFormat.alignment=1 tabRow = tabRow + 1 Next objWordDoc.Application.ActiveDocument.SaveAs "tempSample.doc", 0,False,"",True,"",False,False,False, False,False objWordDoc.Application.printout()

End Sub </script>


相关文章:
怎样把网页中的表格转换为Word文档?.doc
怎样把网页中的表格转换为Word文档? - 怎样把网页中的表格转换为 Word 文档? 用下面的办法转换即可: <Table id=myData border=1 align=center> ...
将网页快速转换为Word文档的方法.doc
将网页快速转换为 Word 文档的方法时间:2011-12-29 19:15 来源:未知 作者:...1 /2 相关文档推荐 怎样把网页中的表格转换... 3页 免费 教你快速把PDF...
如何将网页快速转换为WPS文档.doc
如何将网页快速转换为WPS文档 - 看到图文并茂的网页, 想把它全部或部分转换为 WPS 或者 WORD 文档保存起来, 最便捷的 方法是什么?复制文字,下载图片,插入图片?...
教你将网页轻松变形成Word文档.doc
教你将网页轻松变形成 Word 文档经常上网的朋友有没有看到图文并茂的网页有想把它转变为 WPS 或者 WORD 文档保存起来, 有这样想法 的朋友今天我们就教你如何把...
网页中的内容如何轻松转换为WPS与WORD文档 - 教程 软件....doc
网页中的内容如何轻松转换为WPS与WORD文档 - 教程 软件应用 Office
怎样将Excel表格完美转换成word文档.doc
怎样将Excel表格完美转换成word文档_电脑基础知识_IT/计算机_专业资料。将Excel...web 页就是网页文件,在“保存选项”处把“保存整个工作簿”调整成“选择:工作...
保存网页为WORD文件的一些经验.doc
(六)有人直接利用网页做 word 文件,可把网页直接导入或复制到 word 文件中,这对于有表 格的网页文件尤其有用。之后利用表格→转换→表格转换为文本,把不需要的...
如何将excel表格转换成word文档.doc
如何将excel表格转换成word文档_计算机软件及应用_IT/计算机_专业资料。如何将 ...web 页就是网页文件,在“保存选项”处把“保存整个工作簿”调整成“选择: ...
【优质文档】网页转换成word-范文模板 (5页).doc
打开后的效果: 3、去掉不需要的部分 注:表格形式...篇二:从网站下载 flash 文档并转换成 word 文档的...且你愿意保留 HTML 文档中的格 式及链接等,直接...
如何把EXCEL表格转成WORD表格?_图文.doc
六、然后在视图菜单中把以前的 WEB 版式视图换成页面视图。 七、这样就很轻松的实现了 Excel 表格转换成 Word。 八、然后保存成 WORD2010 文档就可以了 来源:...
excel表格怎么转换成word文档_图文.doc
excel 表格怎么转换成 word 文档分步阅读 我们在工作中会经常遇到这样的情况,有时候在 excel 编辑好的文档,想把里面的数据 原封不动的放在 word 里面。通常我们最...
如何将excel表格转换成word文档(详解).pdf
可是在一些情况下,我们 必须 Excel 表格转换成 Word 文档。当前普遍的做法是:先用 Excel 做好表格,再把表粘 到 Word 里。可是粘到 Word 里后表的格式全变...
如何将表格转化为WPS WORD文档.doc
转】 怎样将 Excel 表格完美转换成 word 文档 Excel 强大的制表功能让很多办公一族都忘不了它的 方便与实用。可是在一些情况下,我们必须将 Excel 表格转换成 ...
如何将excel表格转换成word文档?.doc
如何将excel表格转换成word文档? - 如何将 excel 表格转换成 word 文档? 用 Word 程序打开该文件后,不要做任何编辑操作,直接点击“文件”→“另存为” ,把 ...
如何将EXCLE表转换为WORD格式.doc
怎样将 Excel 表格完美转换成 word 文档 Excel 强大的制表功能让很多办公一族都忘不了它的方便与实用。可是在一些情况下, 我们必须将 Excel 表格转换成 Word 文档...
轻松将Excel表格完美转换成Word文档.doc
轻松 Excel 表格完美转换成 Word 文档 excel 强大...web 页就是网页文件,在“保存选项”处把“保存整个...秒清除你电脑中的垃圾(使你电脑急速如飞)在 ...
网页文件复制到word中重新排版的几个技巧.txt
网页文件复制到word中重新排版的几个技巧 - ?网页文件复制到word中重新排版的几个技巧? ? 1.去掉表格和格式?为了版面的整齐,网页文档都是以表格的形式存在的,...
如何将excel表格转换成word文档_图文.doc
如何将excel表格转换成word文档_表格类模板_表格/模板_实用文档。文档均来自网络,如有侵权请联系我删除文档 如何将 excel 表格转换成 word 文档 如何将 excel 表格...
如何将excel表格整体 转换成word文档.doc
如何将 excel 表格整体 转换成 word 文档一、excel 强大的制表功能令很多办公...web 页就是网页文件,在“保存选项”处把“保存整个工作簿”调整成 “选择:...
怎样将Excel表格完美转换成word文档.doc
怎样将 Excel 表格完美转换成 word 文档 Excel 强大的制表功能让很多办公一族都忘不了它的方 便与实用。可是在一些情况下,我们必须将 Excel 表格转换 成 Word ...