今天分享2種word批量轉pdf的方法。

有些公司規定電腦不允許聯網、不能随意安裝軟件。有時批量打印word文檔時容易格式混亂，就需要轉換成pdf再打印。

具體實現方式：

1、 在桌面随意新建一個doc文檔，然後打開後同時按alt和F11，雙擊下圖方框。

2、 将代碼複制後。（代碼放在本文末尾）

3、 按F5運行代碼，選擇pdf要保存的位置，需要轉換的word（word文件可多選），等待轉換成功。

我已經提前把帶有宏程序的word文件準備好了。直接打開文件按下按鈕即可直接運行宏程序。

宏程序演示：

宏程序下載：

鍊接：https:///s/1qKQ3cEFmZAMr5yRG-NZWCQ

提取碼：dnjf

當然這種方式适合一些不重要的word文檔，畢竟一旦上傳到網絡就可以視作文檔已經洩露，對于一些包含商業秘密或者隐私性較強的文檔不建議這種方式。

網站：https://convertio.co/

将多個word文檔上傳後，選擇格式為pdf即可轉換。下圖為轉換完成的圖片，轉換後需再下載至本地。

代碼如下：

Sub BatchConvertToPDF() Dim destFolderPath As String destFolderPath = GetFolderPath If destFolderPath <> Empty Then Dim path As Variant For Each path In GetFilePaths() Dim indexOfSlash, indexOfDot As Integer indexOfSlash = InStrRev(path, "\") indexOfDot = InStrRev(path, ".") Dim destFilePath As String destFilePath = destFolderPath Mid(path, indexOfSlash, indexOfDot - indexOfSlash) ".pdf" ConvertToPDF path, destFilePath Next path End If End Sub Function GetFilePaths() Dim folderPath As String With Application.FileDialog(msoFileDialogFilePicker) .Filters.Add "word文件", "*.doc; *.dotx; *.docm" .Title = "請擇要轉換的word文件" If .Show = -1 Then Set GetFilePaths = .SelectedItems End If End With End Function Function GetFolderPath() Dim folderPath As String With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = False .Title = "請選擇要存放的目錄" If .Show = -1 Then GetFolderPath = .SelectedItems(1) End If End With End Function Sub ConvertToPDF(srcPath As Variant, destPath As String) Documents.Open FileName:=srcPath, ConfirmConversions:=False, _ ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _ PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _ WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="" ActiveDocument.ExportAsFixedFormat OutputFileName:= _ destPath, ExportFormat:= _ wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _ wdExportOptimizeForOnScreen, Range:=wdExportAllDocument, From:=1, To:=1, _ Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _ CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _ BitmapMissingFonts:=True, UseISO19005_1:=False ActiveDocument.Close End Sub