[求助]word怎么批量转换成html???

silentorigin

word文档是在多级文件夹内,想批量转换成html

要求，转换后doc与html还是在同一个文件夹内并存，如图，希望只提供“注会电子书”路径就可以将其以下文件夹内的文档批量转换

ngcg

编写一个word2htm.vbs,然后把它拖放到存放word文档内，点按两下word2htm.vbs,目录内的所有文档会自动转换成htm文件。

word2htm.vbs的编码如下。

Set fsObject = CreateObject ("Scripting.FileSystemObject")
myDocDir=fsObject.GetAbsolutePathName("")
If InStrRev(myDocDir, "\") < Len(myDocDir) Then
 myDocDir = myDocDir & "\"
End If
Set DocFilesDir = fsObject.Getfolder(myDocDir)
Set myDocFiles = DocFilesDir.Files
Set myObject = Wscript.CreateObject("Word.Application")
n = 0
For Each DocFile In myDocFiles
 If LCase(Right(DocFile.Name, 3)) = "doc" Then
  HTMLFileName = myDocDir & Left(DocFile.Name,InStrRev (DocFile.Name, ".")) & "htm"
    myObject.Documents.Open DocFile.Path,,,,,,,,,,,False
    myObject.Documents(DocFile.Path).Activate
    myObject.ActiveDocument.SaveAs  HTMLFileName,10,False,,True,,False,False,False,False,False
    myObject.ActiveDocument.Close
    n = n + 1
   End If
Next
If n > 0 Then
 MsgBox n & " file(s) converted!"
Else
 MsgBox "No file converted."
End If
myObject.Quit
Set myObject = Nothing

守柔

2楼的代码我没有细看和测试，可能无法遍历所有文件夹和子文件夹。

请楼主参考此链接，适当修改一下代码即可（即将打开的Word文档另存为html文档即可）。

http://club.excelhome.net/viewthread.php?tid=312585&px=0

ngcg

谢谢版主指点。

守柔

我做了一个示范，供楼主参考：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2008-4-10 6:02:18
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0391^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit

Sub DoctoHtml()
    Dim FS As FileSearch, myFolder As String, myDialog As FileDialog
    Dim i As Long, N As Long, myFileName As String
    Dim myDoc As Document, strHtmlName As String
    On Error Resume Next
    Set myDialog = Application.FileDialog(msoFileDialogFolderPicker)
    With myDialog
        .Title = "请选择一个您需要进行文件转换的文件夹"
        If .Show <> -1 Then Exit Sub
        myFolder = .InitialFileName
        Set myDialog = Nothing
    End With
    Set FS = Application.FileSearch
    With FS
        .NewSearch
        .LookIn = myFolder
        .SearchSubFolders = True
        .FileName = "*.doc"
        If .Execute() > 0 Then
            N = .FoundFiles.Count
            For i = 1 To N
                myFileName = CStr(.FoundFiles(i))
                Application.StatusBar = "正在转换:" & myFileName & "…" & i & "/" & N
                strHtmlName = VBA.Replace(myFileName, ".doc", ".hml", , , vbTextCompare)
                Set myDoc = Word.Documents.Open(FileName:=myFileName, Visible:=True)
                myDoc.SaveAs FileName:=strHtmlName, fileformat:=wdFormatHTML
                myDoc.Close
            Next
            Application.StatusBar = Empty
            MsgBox "Micorsoft Word共完成了" & N & "个Doc文件转换为Html文件工作!", vbInformation, "ExcelHome"
        Else
            MsgBox "Microsoft Word在" & myFolder & "文件夹中没有找到*.doc文件!", vbInformation, "ExcelHome"
        End If
    End With
End Sub
'----------------------

xwjsyyx

做了个word批量转换成html的小程序，但无法上传！请明白的指点！
程序已压缩成240K的　Doc文件批量转换为Html文件.rar　，按上传的步骤进行后，点击预览则没有发现“点击浏览该文件”这个“小东东”

 

原来我的“火狐浏览器”不支持上传附件！这回可以上传了！

8u3O9TEl.rar (240.5 KB, 下载次数: 126)

2008-4-17 21:46 上传

点击文件名下载附件

[此贴子已经被作者于2008-4-17 21:47:04编辑过]

silentorigin

谢谢各位高手指点

szfangel

6楼的大哥不好用啊

ling1735

你好  我也在考cpa 能把你的“注会电子书”传给我吗？邮箱：ling1735@yahoo.cn     谢谢了！！

xusir_seu

这个宏在word2007下可以使用吗