word中doc批量转html、mht方法

doc批量转html/mht方法

在制作电子书（chm、exe等）时，经常要转换文档。单个doc转html、mht等，可以使用“另存为”方式，但当文档较多时就比较麻烦，有专门的软件，但免费的较少，还是自己动手试试。

一、如果是批量转HTML，可以使用word自带的工具，方法如下：

文件→新建→本机上的模板，

弹出如下对话框，其它文档→转换向导，

提示：有人反映自己的word没有“其它文档”，可能你的word是精简版或版本过老，下个完整版的装一下试试。

转换向导中点击“下一步”，

弹出如下对话框，

可转换成HTML、txt等， 点击“下一步”，选择路径，点“下一步”，

全选所有文档，点“完成”，即可。

转换成功后，生成htm文件，有时会有files文件夹。有文件夹显得多余，最好转成mht。

二、如果是批量转mht，可以使用如下方法： 打开word，工具→宏→Visual Basic编辑器，

弹出窗口中，查看代码，输入代码，

运行宏，

代码（此代码来源于网络）： Sub test2()

Dim wdapp As Word.Application

Dim wddocument, currentdoc As Word.Document Set wdapp = New Word.Application Application.ScreenUpdating = False

ChangeFileOpenDirectory \E:\\支持\\系统类\ FileName = Dir(\E:\\支持\\系统类\\*.doc\

Do While FileName <> \

Documents.Open (FileName)

ActiveDocument.SaveAs FileName:=FileName & \

wdFormatWebArchive, LockComments:=False, Password:=\ True, WritePassword:=\ False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False ActiveDocument.Close FileName = Dir() Loop End Sub

提示：代码中的路径（蓝色部分）需要修改。

本文来源：https://www.bwwdw.com/article/bvkx.html