怎样将word 转为 html 文件

Question

如题

Answer 1

是这样的，我有很多word文档，里面只有文字和表格，我想把它转为html，以便在网上发布，我看见word里面有一个功能，可以把文档存为网页的格式，但是如果一个一个的转的话就太痛苦了，因此希望可以用程序来完成这个工作

Answer 2

调用word对象，至于代码你可以录制一段宏，然后自己看

Answer 3

引用word 里面有个 方法 
引用 Microsoft Word 9.0 Object Library
     Dim wdapp As Word.Application
     Dim wddoc As Word.Document   '创建word应用程序，这一句话打开word2000
     Set wdapp = CreateObject("Word.Application")
     '在word中添加一个新文档
     Set wddoc = wdapp.Documents.Open(App.Path & "\Doc1.doc")    ChangeFileOpenDirectory App.Path & "\"
    wddoc .SaveAs FileName:="Asfdasdf.htm", FileFormat:=wdFormatHTML, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        FalseDoc1.doc 就会生成一个对应的  Asfdasdf.htm

Answer 4

点击 录制宏 将你的word 另存 html  
Atl+F11 查看你录制的宏代码

Answer 5

Const wdFormatHTML = 8Private Sub Command1_Click()
    Dim Word As Object
    Dim sfile As String
    Dim dfile As String
    sfile = "g:\rar2\mc.doc" '源文件
    dfile = "g:\rar2\mc.htm" '目标文件
    Set Word = CreateObject("Word.Application")
    Word.Documents.Open FileName:=sfile
    Word.ActiveDocument.SaveAs FileName:=dfile, FileFormat:=wdFormatHTML
    Word.Quit
    Set Word = NothingEnd Sub