追梦人博客Dream.ren

追梦人 Dream.ren

基于宏命令的常见文档格式批量转换工具包

最近参照网上的样例,写了一些常见文档格式批量转换的宏代码,话说批量转换真的非常舒爽,好东西怎么能藏着掖着呢?!所以就放在这里静待有需求的有缘人,文档批量转换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文档以及实现下列其他转换了 :evil:

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版本支持方可。转载请务必注明出处!

评论回复

  1. 回复 码农BTS

    :!: 好东西居然没评论

  2. 回复 woshiluo

    对我来说这玩意跟没有一样,因为没有那么多文件 :?:

  3. 回复 Kelvin

    现在能好好坚持写这类博客的人不多了,楼主要好好坚持,不要放弃,不管有没有人看,坚持分享、坚持做笔记是挺好的。

  4. 回复 匿名

    感谢博主 :grin:

  5. 回复 kokokeke

    谢谢博主分享好东西.准备把博主的宏改成在 文件夹及子文件夹 下原位置进行转换.
    博主写的宏好规整,一看就懂,格式转换的主体不用变,只用改一下路径就可以了.
    谢谢楼主

  6. 回复 匿名

    谢谢博主的分享啦,可是为什么我这边WPS转不了docx啊

  7. 回复 匿名

    编译错误:
    若要在64位系统上使用,则必须更新此项目中的代码。请检查并更新Declare语句,然后用PtrSafe属性标记他们

  8. 回复 匿名

    请参考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

  9. 回复 Ptfe

    觉得这样的小工具(宏)非常有必要,其中,是不是修成,
    将某多层文件夹中的符合要求的文件转换格式后,替换原文件:将原文件删除,而保留新文件?
    因为,
    我目前整理手中原来的一些资料、文件,有数万个之多,如果从中选出DOC、XLS、PPT等77-2003格式文件,转成DOCX、XLSX、PPTX……等文件后,再移回原来位置。工作量还是非常大,也不方便。
    另,您写的这些内容在All office convert小软件中也可以实现:这个软件更象是单向的转化的,其中,是把多层文件夹下的相应文档转化到一个文件夹中,这样转出来的文件,放回去有些无从下手。
    谢谢提供!!!

  10. 回复 匿名

    感谢楼主的博客!谢谢分享实用类软件!

  11. 回复 匿名

    还挺有用的,现在愿意做这种事的人不多了。 :lol:

  12. 回复 匿名

    :oops: :lol: 秘密

  13. 回复 PtrSafe

    :grin: :grin: 非常感谢大神,非常好用,值得学习

  14. 回复 beizhou

    大神,测试良好,感谢!

  15. 回复 andy

    可以转载吗

5 + 4 =

回到顶部