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


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

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

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


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

谢谢分享,下面是对在窗口中浏览docx文档的补充与完善,高手勿喷!

'按钮的Click事件代码(在窗口的WebBrowser控件中以MHT格式浏览指定的Word文档(*.docx)).

Dim app As New MSWord.Application

app.Visible = False

Dim dlg As New OpenFileDialog

dlg.Filter = "Word文档|*.docx"

If dlg.ShowDialog = DialogResult.OK Then

    Dim doc = app.Documents.Open(dlg.FileName)

    Dim fln_save As String = dlg.FileName.Replace("docx","mht")

    doc.SaveAs2(Filename:=fln_save, FileFormat:=9)

    app.quit()

    Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

    wbr.Address = fln_save

End If


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


加好友 发短信
等级:三尾狐 帖子:677 积分:6222 威望:0 精华:0 注册:2012/1/20 17:53:00
  发帖心情 Post By:2015/11/23 14:53:00 [只看该作者]

学习一下,多谢分享

 回到顶部
帅哥哟,离线,有人找我吗?
智友软件工作室
  63楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:912 积分:7445 威望:0 精华:0 注册:2013/2/25 13:10:00
  发帖心情 Post By:2015/11/23 15:09:00 [只看该作者]

学习一下

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


加好友 发短信
等级:童狐 帖子:206 积分:1646 威望:0 精华:0 注册:2014/9/26 11:18:00
  发帖心情 Post By:2015/11/24 14:52:00 [只看该作者]

 看看

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


加好友 发短信
等级:童狐 帖子:273 积分:3400 威望:0 精华:0 注册:2012/4/20 16:43:00
  发帖心情 Post By:2016/2/23 20:11:00 [只看该作者]

看看


 回到顶部
帅哥,在线噢!
hswf
  66楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:262 积分:2692 威望:0 精华:0 注册:2013/6/29 9:35:00
学习一下  发帖心情 Post By:2016/3/19 12:29:00 [只看该作者]

学习一下

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


加好友 发短信
等级:四尾狐 帖子:803 积分:10703 威望:0 精华:1 注册:2008/9/2 18:58:00
  发帖心情 Post By:2016/3/19 12:37:00 [只看该作者]

多谢楼主分享

 回到顶部
帅哥哟,离线,有人找我吗?
狐来江湖
  68楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:242 积分:2141 威望:0 精华:0 注册:2012/6/1 6:39:00
  发帖心情 Post By:2016/3/19 18:37:00 [只看该作者]

学习

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


加好友 发短信
等级:四尾狐 帖子:953 积分:7252 威望:0 精华:0 注册:2011/9/6 13:36:00
  发帖心情 Post By:2016/3/19 18:41:00 [只看该作者]

图片点击可在新窗口打开查看

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


加好友 发短信
等级:婴狐 帖子:40 积分:498 威望:0 精华:0 注册:2015/6/30 10:35:00
  发帖心情 Post By:2016/3/19 20:23:00 [只看该作者]

瞧一瞧

 回到顶部