今天分享2種word批量轉pdf的方法。
一、使用word自帶vba實現有些公司規定電腦不允許聯網、不能随意安裝軟件。有時批量打印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
更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
