最近参照网上的样例，写了一些常见文档格式批量转换的宏代码，话说批量转换真的非常舒爽，好东西怎么能藏着掖着呢？！所以就放在这里静待有需求的有缘人，文档批量转换v2.zip
目前支持以下转换：
doc批量转换为docx；
doc批量转换为mht；
doc批量转换为pdf；
docx批量转换为doc；
docx批量转换为mht；
docx批量转换为pdf；
mht批量转换为doc；
mht批量转换为docx；
mht批量转换为xls；
mht批量转换为xlsx；
xls批量转换为mht；
xls批量转换为pdf；
xls批量转换为xlsx；
xlsx批量转换为mht；
xlsx批量转换为pdf；
xlsx批量转换为xls；
发现问题了没？没错，聪明的你肯定知道怎样将Excel表格文档批量转换为Word文档以及实现下列其他转换了 
doc批量转换为xls；
doc批量转换为xlsx；
docx批量转换为xls；
docx批量转换为xlsx；
xls批量转换为doc；
xls批量转换为docx；
xlsx批量转换为doc；
xlsx批量转换为docx；
mht批量转换为pdf；
使用方法：
1、将需要批量处理的文件放入输入文件夹下该格式对应目录；
2、打开相应的带宏文档，按Alt+F11后进入宏编辑页面，鼠标点击一下代码部分然后按下F5，这时应该能看到office或wps在不停地操作文件，文件较多的话就可以去喝杯茶了；
如需要将doc文件批量转换为docx文件，就将所有需要处理的doc文件放入“输入文件夹/doc/”目录中，然后打开doc2docx.docm文件，打开时若出现安全警告请选择启用宏选项，打开文档后按下Alt+F11后进入编辑页面后按F5开始执行格式转换，转换后的文档存放在“输出文件夹/docx/”目录中。
注意：
需要使用支持宏的office或wps版本！转换为pdf文件需要office或wps版本支持方可。转载请务必注明出处！
对我来说这玩意跟没有一样，因为没有那么多文件
现在能好好坚持写这类博客的人不多了，楼主要好好坚持，不要放弃，不管有没有人看，坚持分享、坚持做笔记是挺好的。
感谢博主
谢谢博主分享好东西.准备把博主的宏改成在 文件夹及子文件夹 下原位置进行转换.
博主写的宏好规整,一看就懂,格式转换的主体不用变,只用改一下路径就可以了.
谢谢楼主
谢谢博主的分享啦，可是为什么我这边WPS转不了docx啊
编译错误：
若要在64位系统上使用，则必须更新此项目中的代码。请检查并更新Declare语句，然后用PtrSafe属性标记他们
请参考VBA帮助
Declare 语句 PtrSafe 关键字
带有 PtrSafe 关键字的 Declare 语句为建议的语法。要使包括 PtrSafe 的 Declare 语句能同时在 32 位和 64 位平台上的 VBA7 开发环境中正确运行，必须先将 Declare 语句中所有需要存储 64 位数的数据类型（参数和返回值）更新为使用 LongLong（对于 64 位整数）或 LongPtr（对于指针和句柄）。为确保与 VBA 版本 6 和更早版本的向后兼容性，请使用下面的构造：
#If Vba7 Then
Declare PtrSafe Sub…
#Else
Declare Sub…
#EndIf
觉得这样的小工具（宏）非常有必要，其中，是不是修成，
将某多层文件夹中的符合要求的文件转换格式后，替换原文件：将原文件删除，而保留新文件？
因为，
我目前整理手中原来的一些资料、文件，有数万个之多，如果从中选出DOC、XLS、PPT等77-2003格式文件，转成DOCX、XLSX、PPTX……等文件后，再移回原来位置。工作量还是非常大，也不方便。
另，您写的这些内容在All office convert小软件中也可以实现：这个软件更象是单向的转化的，其中，是把多层文件夹下的相应文档转化到一个文件夹中，这样转出来的文件，放回去有些无从下手。
谢谢提供！！！
感谢楼主的博客！谢谢分享实用类软件！
还挺有用的，现在愿意做这种事的人不多了。
大神，测试良好，感谢！
可以转载吗
@andy注明出处可以转载。