将 Word 文档快速转换为宏的 3 种方法 PDF 档

词解法 2025 年 9 月 28 日

在本文中，我们将重点为您提供3个宏，您可以使用它们将Word文档快速转换为 pdf 文件。

在 Word 2003 中，菜单栏上有一个图标。只需单击一下，用户就可以立即触发“另存为”窗口并将文档保存在 pdf 格式。

但是，正如您所注意到的，Word 2010 中的布局发生了很大变化。用户必须单击“文件”选项卡，然后单击“另存为”命令才能触发“另存为”窗口。此外，您必须在点击“保存”按钮之前手动选择保存类型。

通过所有这些点击，它还不够快。因此，在这个 post，我们很乐意展示这样做的宏观方法。

宏一：快速触发“另存为”窗口

首先和形式ost，单击“开发工具”选项卡，然后单击“Visual Basic”命令打开VBA编辑器。当然，必须在“开发人员”选项卡已经显示时进行两次点击。另一种方法是按“Alt+F2”。
其次，单击“正常”项目。
第三，单击“插入”，然后在列表菜单上选择“模块”。
现在双击模块以显示编辑区域。
接下来，粘贴以下代码：

Sub TriggerSaveAsWindow()
  Dim dlgSaveAs As Dialog
 
  Set dlgSaveAs = Dialogs(wdDialogFileSaveAs)
  With dlgSaveAs
    .Format = wdFormatPDF
    .Show
    .Execute
  End With
End Sub

然后点击“运行”。

现在有“另存为”窗口。并且保存类型已经在 pdf. 剩下要做的就是单击“保存”按钮。此宏使您能够在必要时更改文件名。

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

如果有人想直接将文件保存到 pdf 在不修改文件名的情况下，这里是需要的宏。

首先，重复上面的前 4 个步骤。
接下来，改为粘贴以下代码：

'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

同样，点击“运行”。

宏 3：将 Word Docx 文件批量转换为 PDFs

首先将所有 docx 文件放在一个文件夹中。
按照上述步骤打开编辑区域。
然后粘贴下面的宏：

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

永远不要忘记单击“运行”按钮。

注意：: 在代码中“strFolder =“C：\用户\测试\桌面\测试文件\”“中，”“C：\用户\测试\桌面\测试文件\”” 是文件夹的文件路径。请记住相应地更改它。

运行这个宏后， pdfs 将保存在 Word 文档所在的同一文件夹中。

尽可能保护文件

有预防措施也有post- 抢救损坏文件的灾难行动。如果您定期备份文件，恢复原始文件只是小菜一碟。事实上，很少有人能够坚持他们的备份计划，因此增加了丢失宝贵数据的风险。在这种情况下，是时候求助于先进的 Word文档损坏修复工具.

作者简介：

Vera Chen 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括损坏的 Excel xlsx 修复和 pdf 修复软件产品。欲了解更多信息，请访问 datanumen.com