- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]提示Documentclass没有被发现 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=159656)
-- 发布时间：2021/1/3 20:20:00
-- [求助]提示Documentclass没有被发现
老师好！
Word文档转换为单一网页文件mht时，提示如下图，怎样解决？
谢谢！
此主题相关图片如下：截屏图片.jpg
Dim app As New MSWord.Application
app.Visible = False
Dim dlg As New OpenFileDialog
dlg.Filter = "Word文档|*.docx;*.doc"
If dlg.ShowDialog = DialogResult.OK Then
Dim doc = app.Documents.Open(dlg.FileName)
Dim fln_save As String = dlg.FileName.Replace("docx","mht").Replace("doc","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
-- 发布时间：2021/1/3 20:28:00
--
doc.SaveAs(Filename:=fln_save, FileFormat:=9)