如何批量将多个Word文档转换为PDF文件 Author Siluvia • Last modified 2025-08-22 使用Word中的“另存为”功能，可以轻松地将单个Word文档转换为PDF。但是，如果需要一次性将文件夹中的所有Word文档转换为单独的PDF文件，该怎么办呢？本指南将向您展示如何在Word中批量将多个Word文档转换为PDF文件。
使用VBA批量将多个Word文档转换为PDF文件 使用Kutools for Word批量将多个Word文档转换为PDF文件
使用VBA批量将多个Word文档转换为PDF文件以下VBA代码可让您快速将文件夹中的所有Word文档一次性转换为PDF文件。请按照以下步骤操作：
在Word中，按 Alt + F11 打开Microsoft Visual Basic for Applications窗口。 在编辑器中，点击“插入”>“模块”，然后将以下VBA代码复制并粘贴到模块窗口中。 Sub ConvertWordsToPdfs()
'Updated by Extendoffice 20181123
Dim xIndex As String
Dim xDlg As FileDialog
Dim xFolder As Variant
Dim xNewName As String
Dim xFileName As String
Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xDlg.Show <> -1 Then Exit Sub
xFolder = xDlg.SelectedItems(1) + "\"
xFileName = Dir(xFolder & "*.*", vbNormal)
While xFileName <> ""
If ((Right(xFileName, 4)) <> ".doc" Or Right(xFileName, 4) <> ".docx") Then
xIndex = InStr(xFileName, ".") + 1
xNewName = Replace(xFileName, Mid(xFileName, xIndex), "pdf")
Documents.Open FileName:=xFolder & xFileName, _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
ActiveDocument.ExportAsFixedFormat OutputFileName:=xFolder & xNewName, _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
ActiveDocument.Close
End If
xFileName = Dir()
Wend
End Sub 按 F5 运行代码。 将弹出一个浏览对话框。选择包含要转换为PDF的Word文档的文件夹，然后点击“确定”。 所选文件夹中的所有Word文档都将被转换为单独的PDF文件。
使用Kutools for Word批量将多个Word文档转换为PDF文件如果VBA代码难以处理，您可以尝试Kutools for Word的“转换文档”工具。与Word中的手动方法相比，该工具简化了流程，使其更加便捷和高效。
Kutools for Word，搭载 AI 🤖，提供超过 100 项实用功能，简化您的任务。立即下载 点击“Kutools Plus”>“格式转换”。 在“文档格式转换”窗口中，请按照以下步骤操作： 从“类型”下拉菜单中选择“Docx 转 pdf”。 点击 以添加文档： 选择“文件”以添加单个文档。 选择“文件夹”以添加特定文件夹中的所有文档。 默认情况下，PDF文件将保存到与源文件相同的位置。要更改位置，请点击“浏览”按钮 并选择新的目标文件夹。 可选地，勾选“成功后删除源文件”复选框，以便在创建PDF后删除原始文件。 可选地，勾选“保持源文件的更改时间”复选框以保留原始文件的元数据。 所有设置完成后，点击“确定”。 现在，所有.docx格式的文档都已成功转换为PDF文件。
Kutools for Word 是终极的 Word 插件，能够简化您的工作并提升文档处理技能。立即获取！最佳Office办公效率工具Kutools for Word - 用超过100项强大功能全面提升你的Word体验！🤖 Kutools AI 功能：AI助手 / 实时助手 / 超级润色（保留格式）/ 超级翻译（保留格式）/ AI遮挡 / AI校正……
📘 文档掌控：分割页面 / 文档合并 / 区域导出为多种格式（PDF/TXT/DOC/HTML等）/ 批量转换为PDF……
✏ 正文编辑：跨多个文件批量查找与替换 / 一键调整所有图片大小 / 翻转表格行列 / 表格转文本……
🧹 高效清理：一扫多余空格 / 分节符 / 文本框 / 超链接 / 想了解更多删除工具，请前往删除分组……
➕ 创意插入：插入千位区分符 /复选框 /选项按钮 / 二维码 / 条形码 / 批量插入图片 / 更多内容请见插入分组……
🔍 精准选取：快速定位指定页面 / 表格 / 形状 / 标题段落 / 利用更多 选择 功能提升导航体验……
⭐ 实用增强：跳转任意区域 / 自动插入重复文本 / 文档窗口间一键切换 /11 项转换工具……
🌍 支持40多种语言：自由选择你喜欢的界面语言——Kutools支持英语、西班牙语、德语、法语、中文及其他40余种语言！
👉 想立即体验这些功能？马上下载 Kutools for Word！🚀免费下载 立即购买 了解更多 Kutools for Word ✨ Kutools for Office – 一次安装，五大强力工具集成！内含 Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint
📦 五大工具一站式集成 | 🔗 无缝兼容Microsoft Office | ⚡立即提升效率、节省时间
⬇️立即下载 🎁购买全功能套装 📖了解更多 最佳Office办公效率工具Kutools for Word - 100+ 项Word工具 🤖 Kutools AI 功能：AI助手 / 实时助手 / 超级润色 / 超级翻译 / AI遮挡 / AI校正 📘 文档掌控：分割页面 / 文档合并 / 批量转换为PDF ✏ 正文编辑：批量查找与替换 / 一键调整所有图片大小 🧹 高效清理：清除多余空格 / 清除分节符 ➕ 创意插入：插入千位区分符 / 插入复选框 / 创建二维码 🌍 支持40多种语言：Kutools 支持您的语言环境——兼容超40种语言！ 免费下载 立即购买 了解更多关于 Kutools