以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  网页代码保留格式保存为word,pdf都可以  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136183)

--  作者:fntfgz
--  发布时间:2019/6/9 17:23:00
--  网页代码保留格式保存为word,pdf都可以
老师,我想把挺多网页文本(如下图)保留现有的格式转成pdf文件,我现在把这些网页源代码采集到数据库中,有什么办法把这些源代码放到word中,体现出格式来,而不显示html标签吗?我复制网页文字,直接粘贴到word中时,右键有一个“合并格式”粘贴的效果就很好,但是怎么能实现呢,求老师指点

网页效果图:

此主题相关图片如下:2019-06-09_171944.png
按此在新窗口浏览图片


[此贴子已经被作者于2019/6/9 17:29:13编辑过]

--  作者:有点甜
--  发布时间:2019/6/9 17:38:00
--  

用word打开html,然后另存为word,如

 

Dim app As new msword.application
Dim Doc = app.Documents.open("d:\\test.htm")
Doc.saveas(FileName:="d:\\test123.doc", FileFormat:=0)
app.visible = True