word轉pdf的軟體（word文件批量轉pdf）

word批量轉pdf

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

一、使用word自帶vba實現

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

具體實現方式：

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

2、 將程式碼複製後。（程式碼放在本文末尾）

3、 按F5執行程式碼，選擇pdf要儲存的位置，需要轉換的word（word檔案可多選），等待轉換成功。

我已經提前把帶有巨集程式的word檔案準備好了。直接開啟檔案按下按鈕即可直接執行巨集程式。

巨集程式演示：

巨集程式下載：

連結：https://pan.baidu.com/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