Word文档批量转PDF

最近学习到Word的一个新知识，很是强大。话不多说，现在就给给为观众老爷露上一手。

1.打开一个Word文档

2.按Alt+F11打开代码处理页面

点击ThisDocument打开编辑面板

输入以下代码：

'docx转pdf
Option Explicit
Sub docx2pdf()
Dim sEveryFile As String
Dim sSourcePath As String
Dim sNewSavePath As String
Dim CurDoc As Object
sSourcePath = "E:\DOCX文件\"
sEveryFile = Dir(sSourcePath & "*.docx")
Do While sEveryFile <> ""
    Set CurDoc = Documents.Open(sSourcePath & sEveryFile, , , , , , , , , , , msoFalse)
    sNewSavePath = VBA.Strings.Replace(sSourcePath & "PDF文件\" & sEveryFile, ".docx", ".pdf")
    CurDoc.SaveAs2 sNewSavePath, wdFormatPDF
    CurDoc.Close SaveChanges:=False
    sEveryFile = Dir
Loop
Set CurDoc = Nothing
End Sub

需要换的就是两个地方：
sSourcePath = "E:\DOCX文件\" 放word 的地方
sSourcePath & "PDF文件 放PDF的地方
修改完后点击运行

结束！