word批量转pdf

### 使用编程或工具实现Word文件批量转换为PDF #### 方法一：通过VBS脚本实现 可以利用Visual Basic Script (VBS) 来编写脚本来完成这一任务。此方法适用于Office 2007及以上版本的32位系统环境，前提是需要先安装`SaveAsPDFandXPS.exe`插件[^1]。 以下是具体的VBS代码示例： ```vbscript Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("C:\Input\WordFiles\") ' 输入目录路径 Set objShell = CreateObject("WScript.Shell") For Each objFile In objFolder.Files If LCase(objFSO.GetExtensionName(objFile.Path)) = "doc" Or LCase(objFSO.GetExtensionName(objFile.Path)) = "docx" Then strOutputPath = Replace(objFile.Path, ".doc", ".pdf") strOutputPath = Replace(strOutputPath, ".docx", ".pdf") Set objWord = CreateObject("Word.Application") objWord.Visible = False On Error Resume Next Set objDoc = objWord.Documents.Open(objFile.Path) If Err.Number = 0 Then objDoc.SaveAs strOutputPath, FileFormat:=17 ' 文件格式设置为PDF objDoc.Close Else WScript.Echo "Error opening file: " & objFile.Path End If On Error GoTo 0 objWord.Quit End If Next ``` 这段代码会遍历指定文件夹中的所有`.doc`和`.docx`文件，并将其逐一转换为PDF格式并存储到同一目录下。 --- #### 方法二：使用VBA宏实现 如果更倾向于在Microsoft Word内部操作，则可以通过VBA宏来实现批量化处理。这种方法无需额外依赖外部程序，适合熟悉Excel/Word VBA开发的人群[^2]。 下面是一个基于VBA的解决方案： ```vba Sub BatchConvertWordToPDF() Dim i As Long Dim doc As Document With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .Filters.Clear .Filters.Add "Word Files", "*.doc; *.docx" .Show For i = 1 To .SelectedItems.Count Set doc = Documents.Open(.SelectedItems(i)) ' 定义输出路径 Dim outputPath As String outputPath = Environ("UserProfile") & "\Desktop\" & _ GetBaseName(.SelectedItems(i)) & ".pdf" ' 导出为PDF doc.ExportAsFixedFormat OutputFileName:=outputPath, _ ExportFormat:=wdExportFormatPDF ' 关闭原始文档而不保存更改 doc.Close SaveChanges:=False Next i End With End Sub Function GetBaseName(filePath As String) As String Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") GetBaseName = fso.GetBaseName(filePath) End Function ``` 该函数允许用户手动选择多个Word文档，随后自动将这些文档导出至桌面作为PDF文件[^2]。 --- #### 工具推荐 除了编程方式外，还有一些现成的软件可以直接用于执行此类任务： - **Adobe Acrobat Pro DC**: 提供强大的功能支持多种类型的文档转换。 - **Nitro PDF Software**: 用户界面友好且易于使用的PDF编辑器之一。 - **LibreOffice Writer**: 开源免费选项，能够轻松地将ODT或其他兼容格式转化为PDF形式。 以上提到的各种手段各有优劣，请依据实际需求和个人偏好作出选择。 ---