把一个网页文件的内容导入到word里

网页文件可能包括表格线,图片等

<script language=vbscript>
Set MyFileObject=CreateObject("Scripting.FileSystemObject")
if Not MyFileObject.FolderExists("c:/导出word文档/") then
    MyFileObject.CreateFolder("c:/导出word文档/")
end if
Set TextFile=MyFileObject.CreateTextFile("c:/导出word文档/test.doc")
set MyFileObject=nothing
TextFile.WriteLine("<html>")
TextFile.WriteLine("<head>")
TextFile.WriteLine("<title>Untitled Document</title>")
TextFile.WriteLine("<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">") '里面的""也可以不要。
TextFile.WriteLine("</head>")
TextFile.WriteLine("<body bgcolor=""#FFFFFF"" text=""#000000"">")
TextFile.WriteLine("<img src=""ad2.gif"" width=""149"" height=""94"">")
TextFile.WriteLine("<a href="" http://www.csdn.net"" target=""_blank"">www.csdn.net</a>")
TextFile.WriteLine("</body>")
TextFile.WriteLine("</html>")
TextFile.close
set TextFile=nothing
</script>
注:1、图片,你要想办法放到和该word文档相同的目录中(变通一下就可以把图片放到相同的目录下了哈)2、这是在客户端导出的,你也可以在服务器端导出,变动一下即可。3、用IE6.0,在IE的选项里启用java。
  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值