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


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

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

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


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

好东西,顶!

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


加好友 发短信
等级:五尾狐 帖子:1139 积分:8528 威望: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


 回到顶部