word 批量转 pdf

最新推荐文章于 2023-06-08 11:54:56 发布

原创

最新推荐文章于 2023-06-08 11:54:56 发布 · 1.2k 阅读

4 ·

CC 4.0 BY-SA版权

本文介绍了一种利用Word、Excel和虚拟打印机doPDF进行批量转换Word为PDF的方法。通过在Excel中编写VBA脚本，可以一键运行代码，选择需要转换的Word文件，实现快速批量转换。

使用的软件：

word + excel + 虚拟打印机

虚拟打印机doPDF : 链接：https://pan.baidu.com/s/1QEPpRx3qglztELL2QI2R6w 提取码：ow6h

word 批量转 pdf 步骤：

1.打开excel--开发工具--Visual Basic

2.将如下脚本贴到上面的红色框中

Sub 批量打印WORD文档()
     Dim fileToOpen, GetOpenFilename, App, iFile
     fileToOpen = Application.GetOpenFilename(filefilter:="Word文档(*.do*),*.do*", FilterIndex:=4, Title:="请选择要处理的文档(可多选)", MultiSelect:=True)
     If Not IsArray(fileToOpen) Then
         MsgBox "你没有选择文件", vbOKOnly, "提示": Exit Sub
     Else
         Set App = CreateObject("Word.Application")
         For Each iFile In fileToOpen
             Set WrdDoc = App.Documents.Open(iFile)
             App.Docum