Dim dlg As New OpenFileDialog
Dim flt1,flt2 As String
Dim fl2 As String
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png|word文件|*.doc;*.docx|pdf文件|*pdf|excel文件|*.xls;*.xlsx"
If dlg.ShowDialog =DialogResult.OK Then
    Dim tmp As String  = dlg.FileName
    Dim mht As String = ProjectPath & "Reports\\日报表.mhtml"
    Dim rpt As New XLS.Book(tmp)
    rpt.Build()
    rpt.Sheets(0).Rows(0).Visible = False \'隐藏第一个空行
    rpt.SaveToMHT(mht)
    e.Form.Controls("WebBrowser1").Address = mht
Else
    MessageBox.Show("请先选择对应的会议议题,然后再新增议题资料附件!","温馨提示")
End If

当前代码excel可以生成mhtml  那么  word怎么生成MHTML呢？