'将Word文档另存为Html格式 Public Sub SaveAsHtml(ByVal strFileName As String) Dim fileName As Object = strFileName Dim Format As Object = CType(Word.WdSaveFormat.wdFormatHTML, Integer) mDoc.SaveAs(fileName, Format, missing, missing, missing, missing, missing, missing, missing, missing, missing) End Sub
Public Sub SaveAsHtml(ByVal strFileName As String)
Dim fileName As Object = strFileName
Dim Format As Object = CType(Word.WdSaveFormat.wdFormatHTML, Integer) mDoc.SaveAs(fileName, Format, missing, missing, missing, missing, missing, missing, missing, missing, missing)
End Sub
另外http://dotnet.aspx.cc/ShowDetail.aspx?id=13C874E4-7FC7-4FD1-8CF6-DE9EF4469A9C上的 是不是得在vs下操作