批量将Word转PDF，是实际工作中非常实用的技能。本文介绍批量将Word转为PDF的详细步骤，方便读者参考使用。
打开或新建Word文档打开任一Word文档，或新建一个Word文档。
加载“开发工具”功能区右击Word文档的选项卡，点击[自定义功能区]，快速进入“Word选项-自定义功能区”界面。
进入Word选项-自定义功能区
在弹出的界面上，勾选√开发工具，点击确定，就将“开发工具”功能区加载到Word主选项卡上了。
勾选√开发工具
进入Visual Basic编辑器依次选择开发工具-Visual Basic，进入Visual Basic编辑器界面。
进入Visual Basic编辑器
输入VBA代码在左侧的Project下，双击[ThisDocument]，右侧弹出代码编辑区，在该区域输入VBA代码。
编写VBA代码
运行程序点击运行-运行子过程/用户窗体，运行程序。
运行程序
附：完整的VBA代码
Sub Word批量转PDF()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'选择文档所在的文件夹路径
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "请选择文档所在的文件夹路径"
If .Show Then
Dim pathSelected As String
'获取文件夹路径
pathSelected = .SelectedItems(1)
Dim fn As String
'文档类型可以是docx/doc等
fn = Dir(pathSelected & "\*.doc*")
If fn <> "" Then
Do While fn <> ""
'打开文档
Dim doc As Document
Set doc = Application.Documents.Open(pathSelected & "\" & fn, ReadOnly:=True)
Dim exPDF As String
'设置PDF文件与Word同名
exPDF = pathSelected & "\" & Split(fn, ".")(0) & ".pdf"
'导出Word为PDF
doc.ExportAsFixedFormat OutputFileName:=exPDF, ExportFormat:=wdExportFormatPDF
'关闭文档
doc.Close (WdSaveOptions.wdDoNotSaveChanges)
Set doc = Nothing
fn = Dir()
Loop
End If
End If
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
运行效果：弹出文件对话框，我们选择Word文档所在的文件夹路径，点击确定。我们可以看到，在同一路径下已经生成各个文档对应的PDF文件（与Word同名）。
