Foxtable(狐表)用户栏目专家坐堂 → [原创]WORD转mht(单一网页)折腾半夜


  共有15461人关注过本帖树形打印复制链接

主题:[原创]WORD转mht(单一网页)折腾半夜

帅哥哟,离线,有人找我吗?
jwt
  51楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:155 积分:1630 威望:0 精华:0 注册:2015/3/6 17:12:00
1  发帖心情 Post By:2015/11/18 10:08:00 [只看该作者]

11111111111111

 回到顶部
帅哥哟,离线,有人找我吗?
mxm121
  52楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:392 积分:3026 威望:0 精华:0 注册:2014/9/20 23:56:00
  发帖心情 Post By:2015/11/18 10:30:00 [只看该作者]

Dim app As New MSWord.Application
app.Visible = False
Dim doc = app.Documents.Open(ProjectPath & "Reports\长期合同.docx")
doc.SaveAs2(Filename:=ProjectPath & "Reports\双桥椿萱卡长期合同.mht", FileFormat:=9)
app.quit()

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
wbr.Address = ProjectPath & "Reports\长期合同.mht"


这样就好了  fileformat那个枚举类型写不出来,索性直接用数字代替了

 回到顶部
帅哥哟,离线,有人找我吗?
TQL
  53楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:12 积分:126 威望:0 精华:0 注册:2015/11/6 21:32:00
  发帖心情 Post By:2015/11/18 21:31:00 [只看该作者]

看看看看看看看看看看看看看看看看看看看看看看看看看看看看看看

 回到顶部
帅哥哟,离线,有人找我吗?
zcgmxf
  54楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1470 积分:12704 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2015/11/18 22:52:00 [只看该作者]

谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
315139049
  55楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:12 积分:167 威望:0 精华:0 注册:2015/11/13 0:12:00
  发帖心情 Post By:2015/11/18 23:00:00 [只看该作者]

又是新知识,加油!

 回到顶部
帅哥哟,离线,有人找我吗?
张良才
  56楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:284 积分:2474 威望:0 精华:0 注册:2012/2/17 14:55:00
  发帖心情 Post By:2015/11/18 23:26:00 [只看该作者]

谢谢分享

 回到顶部
美女呀,离线,留言给我吧!
ericotaku
  57楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:163 积分:1373 威望:0 精华:0 注册:2014/6/10 8:47:00
  发帖心情 Post By:2015/11/18 23:52:00 [只看该作者]

厉害

 回到顶部
帅哥哟,离线,有人找我吗?
chenli32205
  58楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:175 积分:1115 威望:0 精华:0 注册:2015/7/28 21:30:00
完就回复看看  发帖心情 Post By:2015/11/20 14:41:00 [只看该作者]

我就回复看看

 回到顶部
帅哥哟,离线,有人找我吗?
qq34658788
  59楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:221 积分:1712 威望:0 精华:0 注册:2013/3/3 21:16:00
  发帖心情 Post By:2015/11/22 18:53:00 [只看该作者]

这个号啊,谢谢分享

 回到顶部
帅哥哟,离线,有人找我吗?
wyz20130512
  60楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1139 积分:8528 威望:0 精华:0 注册:2013/5/12 9:22:00
回复:(baicaocao)[原创]WORD转mht(单一网页)折腾半...  发帖心情 Post By:2015/11/22 20:41:00 [只看该作者]

好东西,顶!

 回到顶部
总数 122 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..13