Word文档批量转PDF

最新推荐文章于 2025-07-30 11:52:53 发布

原创最新推荐文章于 2025-07-30 11:52:53 发布 · 533 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#wordToPDF

非代码类同时被 2 个专栏收录

15 篇文章

订阅专栏

前端资源

4 篇文章

订阅专栏

这篇博客分享了一个使用Word宏实现docx文件批量转换为pdf的技巧。通过在Word中编写并运行VBA代码，可以将指定文件夹下的所有docx文档转换为PDF格式，大大提高了工作效率。

最近学习到Word的一个新知识，很是强大。话不多说，现在就给给为观众老爷露上一手。

1.打开一个Word文档

在这里插入图片描述

2.按Alt+F11打开代码处理页面

在这里插入图片描述
点击ThisDocument打开编辑面板

输入以下代码：


'docx转pdf
Option Explicit
Sub docx2pdf()
Dim sEveryFile As String
Dim sSourcePath As String
Dim sNewSavePath As String
Dim CurDoc As Object
sSourcePath = "E:\DOCX文件\"
sEveryFile = Dir(sSourcePath & "*.docx")
Do While sEveryFile <> ""
    Set CurDoc = Documents.Open(sSourcePath & sEveryFile, , , , , , , , , , , msoFalse)
    sNewSavePath = VBA.Strings.Replace(sSourcePath & "PDF文件\" & sEveryFile, ".docx", ".pdf")
    CurDoc.SaveAs2 sNewSavePath, wdFormatPDF
    CurDoc.Close SaveChanges:=False
    sEveryFile = Dir
Loop
Set CurDoc = Nothing
End Sub

需要换的就是两个地方：
sSourcePath = "E:\DOCX文件\" 放word 的地方
sSourcePath & "PDF文件 放PDF的地方
修改完后点击运行
在这里插入图片描述
结束！