word批量转pdf_借助wps_VBA代码实现一、背景在申请某些资质办理的时候有这样的需求需要将很多个word文档批量转化为pdf以便于分享文件的同时不让别人篡改我们的内容一个一个更改很麻烦所以让AI帮我生成了这样的一个代码二、操作步骤1、新建一个xlsx工作表2、打开它点击另存为更改名称及文件类型尤其文件类型必须是“.xlsm”格式点击保存3、 按altf11调出vba面板右键点击xlsm文件点击插入-模块4、复制以下代码到模块并保存ctrlsSub word转pdf() Dim folderPath As String Dim outputFolder As String Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim wpsApp As Object Dim wpsDoc As Object Dim dialog As FileDialog Dim fileNameWithoutExt As String Dim baseName As String Dim i As Long Dim startTime As Double 计时开始 startTime Timer 弹出文件夹选择对话框 Set dialog Application.FileDialog(msoFileDialogFolderPicker) With dialog .Title 请选择包含Word文档的文件夹 .AllowMultiSelect False If .Show -1 Then folderPath .SelectedItems(1) Else MsgBox 未选择文件夹操作取消 Exit Sub End If End With 在原路径下新建文件夹格式PDF输出_20260410_153025 baseName PDF输出_ Format(Now, yyyymmdd_hhmmss) outputFolder folderPath \ baseName 创建输出文件夹 MkDir outputFolder 获取文件夹对象 Set objFSO CreateObject(Scripting.FileSystemObject) Set objFolder objFSO.GetFolder(folderPath) 启动WPS文字应用程序 Set wpsApp CreateObject(Kwps.Application) 优化关闭屏幕刷新和后台告警大幅提升速度 wpsApp.ScreenUpdating False wpsApp.DisplayAlerts False wpsApp.Visible False 完全后台运行 统计文件数量 i 0 遍历文件夹中的所有文件 For Each objFile In objFolder.Files 检查是否为Word文档 If LCase(Right(objFile.Name, 4)) .doc Or _ LCase(Right(objFile.Name, 5)) .docx Or _ LCase(Right(objFile.Name, 4)) .wps Then 获取不带后缀的文件名 fileNameWithoutExt objFSO.GetBaseName(objFile.Name) 打开文档 Set wpsDoc wpsApp.Documents.Open(objFile.Path) 另存为PDF保存到新建文件夹文件名不含原后缀 wpsDoc.SaveAs2 outputFolder \ fileNameWithoutExt .pdf, 17 关闭文档不保存原文档的修改 wpsDoc.Close False Set wpsDoc Nothing i i 1 End If Next objFile 清理对象 Set objFile Nothing Set objFolder Nothing Set objFSO Nothing 退出WPS应用程序 wpsApp.Quit Set wpsApp Nothing 计算耗时 Dim elapsedTime As Double elapsedTime Timer - startTime 提示完成 MsgBox 批量转换完成 vbCrLf _ 共转换 i 个文件 vbCrLf _ 耗时 Round(elapsedTime, 2) 秒 vbCrLf _ 保存位置 outputFolder End Sub5、返回工作表按下altf8选择word转pdf点击运行6、选择要转换的文件夹7、转换完成三、注意事项你的wps或office需要支持宏喔