使用的软件:
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 f