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

'按钮的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