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


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

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

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


加好友 发短信
等级:小狐 帖子:392 积分:3026 威望:0 精华:0 注册:2014/9/20 23:56:00
  发帖心情 Post By:2015/11/17 18:22:00 [显示全部帖子]

看看

 回到顶部
帅哥哟,离线,有人找我吗?
mxm121
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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那个枚举类型写不出来,索性直接用数字代替了

 回到顶部