如何將多個Word文檔批量轉換為pdf文件?
使用Word中的“另存為”功能,很容易將Word文檔轉換為PDF文件。 但是,如果要一次將文件夾中的所有Word文檔轉換為單獨的PDF文件,如何實現? 本文將向您展示VBA代碼,以將多個Word文檔批量轉換為Word中的pdf文件。
使用VBA將多個Word文檔批量轉換為pdf文件
使用Kutools for Word將多個Word文檔批量轉換為pdf文件
使用VBA將多個Word文檔批量轉換為pdf文件
以下VBA代碼可幫助您快速將文件夾中的所有Word文檔立即轉換為pdf文件。 請執行以下操作。
1.在Word中,按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。
2。 在裡面 Microsoft Visual Basic for Applications 窗口中,單擊 插入 > 模塊,然後將以下VBA代碼複製到“模塊”窗口中。
VBA代碼:在Word中將多個Word文檔批量轉換為pdf文件
Sub ConvertWordsToPdfs()
'Updated by Extendoffice 20181123
Dim xIndex As String
Dim xDlg As FileDialog
Dim xFolder As Variant
Dim xNewName As String
Dim xFileName As String
Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xDlg.Show <> -1 Then Exit Sub
xFolder = xDlg.SelectedItems(1) + "\"
xFileName = Dir(xFolder & "*.*", vbNormal)
While xFileName <> ""
If ((Right(xFileName, 4)) <> ".doc" Or Right(xFileName, 4) <> ".docx") Then
xIndex = InStr(xFileName, ".") + 1
xNewName = Replace(xFileName, Mid(xFileName, xIndex), "pdf")
Documents.Open FileName:=xFolder & xFileName, _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
ActiveDocument.ExportAsFixedFormat OutputFileName:=xFolder & xNewName, _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
ActiveDocument.Close
End If
xFileName = Dir()
Wend
End Sub
3。 按 F5 鍵來運行代碼。
4.彈出瀏覽對話框,請選擇包含要轉換為pdf文件的Word文檔的文件夾,然後單擊 OK 按鈕。
然後,所選文件夾中的所有Word文檔將立即轉換為單獨的pdf文件。 看截圖:
使用Kutools for Word將多個Word文檔批量轉換為pdf文件
如果很難處理VBA代碼,則可以嘗試 轉換文件 的效用 Kutools for Word 以解決這個問題。
Kutools for Word :擁有100多個方便的Word加載項, 免費試用,不受限制 60 天.
1。 點擊 Kutools 加 > 文件/文件。 看截圖:
2。 在裡面 文件格式轉換器 窗口,您需要執行以下操作:
3.然後會彈出一個對話框,告訴您已成功轉換了多少文檔,單擊 OK 按鈕並關閉 文件格式轉換器 窗口。
現在,所有.docx格式的文檔都將轉換為pdf文件。
如果您想免費試用該實用程序,請轉到 免費下載軟件 首先,然後按照上述步驟進行操作。
最佳辦公生產力工具
Kutools for Word - 透過 Over 提升您的文字體驗 100 顯著特點!
🤖 Kutools 人工智慧助手:用人工智慧改變你的寫作 - 生成內容 / 重寫文字 / 總結文件 / 查詢資料 基於文檔,全部在Word中
📘 文件掌握: 分頁 / 合併文件 / 以各種格式匯出選擇(PDF/TXT/DOC/HTML...) / 批次轉換為PDF / 將頁面匯出為圖像 / 一次列印多個文件...
✏ 內容編輯: 批量查找和替換 跨多個文件 / 調整所有圖片的大小 / 轉置表行和列 / 將表格轉換為文字...
🧹 輕鬆清潔: 移開 多餘的空間 / 分節符 / 所有標題 / 文本框 / 超鏈接 / 如需更多拆卸工具,請前往我們的 刪除組...
➕ 創意插入: 插入 千位分隔符 / 複選框 / 單選按鈕 / QR Code / 條碼 / 對角線表 / 公式標題 / 圖片說明 / 表格標題 / 多張圖片 / 發現更多 插入組...
🔍 精準選擇:精確定位 特定頁面 / 表 / 形狀 / 標題段落 / 增強導航功能 更多 選擇功能...
⭐ 星級增強: 快速導航至任何位置 / 自動插入重複文字 / 在文檔視窗之間無縫切換 / 11 轉換工具...