3種宏方法可以快速將Word文檔轉換為 PDF 檔

Word解決方案 2025 年 9 月 28 日
立即分享：

在本文中，我們將重點為您提供3個宏，您可以使用這些宏將Word文檔快速轉換為 pdf 文件。

在Word 2003中，菜單欄上沒有圖標。 只需單擊一下，用戶就可以立即觸發“另存為”窗口並將文檔保存到 pdf 格式。另存為 PDF 圖標

但是，您注意到，Word 2010中的佈局發生了很大變化。 用戶必須單擊“文件”選項卡，然後單擊“另存為”命令以觸發“另存為”窗口。 此外，在點擊“保存”按鈕之前，您必須手動選擇保存類型。選擇保存類型

所有這些點擊，還不夠快。 因此，在此post，我們很樂意展示實現該目標的宏方法。

宏1：快速觸發“另存為”窗口

  1. 第一和前ost，單擊“開發人員”選項卡，然後單擊“ Visual Basic”命令以打開VBA編輯器。 當然，當“開發人員”選項卡已經顯示時，必須單擊兩次。 另一種方法是按“ Alt + F2”。單擊“開發人員”->單擊“ Visual Basic”
  2. 其次，單擊“普通”項目。
  3. 第三，單擊“插入”，然後在列表菜單上選擇“模塊”。
  4. 現在，雙擊該模塊以顯示編輯區域。單擊“常規”->單擊“插入”->單擊“模塊”
  5. 接下來，粘貼以下代碼：
Sub TriggerSaveAsWindow()
  Dim dlgSaveAs As Dialog
 
  Set dlgSaveAs = Dialogs(wdDialogFileSaveAs)
  With dlgSaveAs
    .Format = wdFormatPDF
    .Show
    .Execute
  End With
End Sub
  1. 然後點擊“運行”。粘貼TriggerSaveAsWindow宏->單擊“運行”

現在有“另存為”窗口。 並且保存類型已經在 pdf。 剩下要做的就是單擊“保存”按鈕。 使用此宏可以根據需要更改文件名。

宏2：直接將Word文件保存到 PDF

如果有人想將文件直接保存到 pdf 無需修改文件名，這是需要的宏。

  1. 首先，重複上面的前4個步驟。
  2. 接下來，粘貼以下代碼：
'Directly save Word file as Pdf and aumatically open it.
Sub DirectlySaveDocxToPdf()
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
  objDoc.ExportAsFixedFormat _
    OutputFileName:=Replace(objDoc.FullName, ".docx", ".pdf"), _
    ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:=wdExportOptimizeForPrint, _
    Range:=wdExportAllDocument, Item:=wdExportDocumentContent
End Sub
  1. 同樣，單擊“運行”。

宏3：批量將Word Docx文件轉換為 PDFs

  1. 首先將所有docx文件放在一個文件夾中。
  2. 請按照上述步驟打開編輯區域。
  3. 然後粘貼下面的宏：
Sub BatchConvertDocxToPDF()
  Dim objDoc As Document
  Dim strFile As String, strFolder As String
 
  'Initialization
  strFolder = "C:\Users\Test\Desktop\Test Files\"
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  'Precess each file in the file folder and convert them to pdf.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
 
    objDoc.ExportAsFixedFormat _
      OutputFileName:=Replace(objDoc.FullName, ".docx", ".pdf"), _
      ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, _
      Range:=wdExportAllDocument, Item:=wdExportDocumentContent
 
    objDoc.Close
    strFile = Dir()
  Wend
End Sub
  1. 永遠不要忘記單擊“運行”按鈕。

備註：在代碼“strFolder =“ C：\ Users \ Test \ Desktop \ Test Files \”“中，”“ C：\ Users \ Test \ Desktop \ Test Files \” 是文件夾的文件路徑。 記住要相應地更改它。

運行此宏後， pdfs將保存在Word文檔所在的文件夾中。影響

盡可能保護文件安全

有預防措施，還有預防措施ost-挽救損壞文件的災難操作。 如果您繼續定期備份文件，則取回原始文件只是小菜一碟。 事實是，很少有人會堅持自己的備份計劃，因此增加了丟失寶貴數據的風險。 在這種情況下，是時候訴諸高級 Word文檔損壞修復工具.

作者簡介：

陳薇薇（Vera Chen）是 DataNumen，Inc.是數據恢復技術的全球領導者，包括 損壞的Excel xlsx修復 以及 pdf 維修軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。