Excel VBA宏实现PDF转DOCX：路径及文件打开报错求助

看起来你在写批量转PDF到DOCX的VBA宏时踩了几个坑：先是「类型不匹配」，改了之后又遇到「文件已损坏」，还只能处理第一个文件。别慌，我来一步步帮你解决：

1. 先搞定「类型不匹配」的问题 #

这个错误出在Set fo = fso.GetFolder(pdf_path)，原因主要有两个：

• 你没引用Microsoft Scripting Runtime库，VBA认不出Folder这个类型
• 如果你的Excel工作簿还没保存过，ThisWorkbook.Path会返回空字符串，fso.GetFolder根本找不到路径

两种修复方式任你选： #

• 添加引用：打开VBA编辑器 → 点「工具」→「引用」→ 勾选「Microsoft Scripting Runtime」
• 后期绑定（更省心）：不用加引用，直接把Dim fso As New FileSystemObject改成Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")，同时Dim fo As Folder改成Dim fo As Object

另外，一定要加个判断，防止工作簿没保存的情况：

If ThisWorkbook.Path = "" Then
    MsgBox "先把当前Excel文件存个档再运行宏呀！", vbExclamation
    Exit Sub
End If

2. 解决「文件已损坏」的坑 #

你后来把word_path改成Application.ActiveWorkbook.FullName，这就错啦！FullName返回的是你这个Excel文件的完整路径（连文件名都带上了），Word尝试把DOCX存到C:\xxx\你的Excel文件.xlsx\文件名.docx这种地方，肯定报错说文件损坏啊！

正确的word_path应该和pdf_path一样，用工作簿所在的目录：

pdf_path = ThisWorkbook.Path & "\"
word_path = ThisWorkbook.Path & "\"

还有，Word打开PDF的时候最好指定格式参数，不然容易出兼容性问题。如果是后期绑定Word（不用加Word对象库引用），直接用数值17代表PDF格式就行。

3. 为什么只处理第一个文件？ #

那是因为前面的错误直接中断了循环，只要把前面的问题修好，循环就能正常遍历所有PDF文件啦。另外，记得只处理PDF后缀的文件，别把Excel、Word这些文件也拉进来转，不然肯定出错。

给你改好的完整代码 #

Sub PDF_To_DOCX()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.DisplayStatusBar = True
    
    ' 先检查工作簿有没有保存
    If ThisWorkbook.Path = "" Then
        MsgBox "先把当前Excel文件存个档再运行宏呀！", vbExclamation
        GoTo Cleanup
    End If
    
    Dim pdf_path As String
    Dim word_path As String
    pdf_path = ThisWorkbook.Path & "\"
    word_path = ThisWorkbook.Path & "\"
    
    ' 后期绑定FileSystemObject，不用加引用
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    Dim fo As Object
    Dim f As Object
    Set fo = fso.GetFolder(pdf_path)
    
    ' 后期绑定Word，不用加Word对象库引用
    Dim wa As Object
    Dim doc As Object
    Set wa = CreateObject("Word.Application")
    wa.Visible = False ' 后台悄悄转，不用弹出Word窗口
    
    ' Word格式常量（后期绑定不能直接用内置常量，所以用数值）
    Const wdOpenFormatPDF As Integer = 17
    Const wdFormatXMLDocument As Integer = 12 ' 对应DOCX格式
    
    Dim file_Count As Integer
    file_Count = 0
    
    ' 单个文件出错不中断整个批量任务
    On Error Resume Next
    For Each f In fo.Files
        ' 只处理PDF文件
        If LCase(fso.GetExtensionName(f.Path)) = "pdf" Then
            file_Count = file_Count + 1
            Application.StatusBar = "正在转换：" & file_Count & "/" & fo.Files.Count
            
            ' 打开PDF文件
            Set doc = wa.Documents.Open(Filename:=f.Path, Format:=wdOpenFormatPDF)
            If Err.Number <> 0 Then
                MsgBox "打不开文件：" & f.Name & vbCrLf & "错误原因：" & Err.Description, vbCritical
                Err.Clear
                GoTo NextFile
            End If
            
            ' 保存为DOCX
            doc.SaveAs2 Filename:=word_path & fso.GetBaseName(f.Path) & ".docx", FileFormat:=wdFormatXMLDocument
            If Err.Number <> 0 Then
                MsgBox "保存失败：" & f.Name & vbCrLf & "错误原因：" & Err.Description, vbCritical
                Err.Clear
            End If
            
            doc.Close False
        End If
NextFile:
    Next f
    On Error GoTo 0
    
    MsgBox "搞定！一共转了 " & file_Count & " 个PDF文件～", vbInformation
    
Cleanup:
    ' 清理资源，防止Word进程残留
    wa.Quit
    Set doc = Nothing
    Set wa = Nothing
    Set f = Nothing
    Set fo = Nothing
    Set fso = Nothing
    
    Application.StatusBar = ""
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

几个关键点提醒 #

• 后期绑定：不管你在哪个电脑上运行，都不用手动加引用，兼容性拉满
• 错误处理：单个文件转失败了，宏会继续处理下一个，不会直接崩掉
• 只转PDF：自动过滤非PDF文件，避免无效操作
• 后台运行：Word在后台干活，不会弹出一堆窗口打扰你
• 资源清理：最后把所有对象都释放掉，防止Word进程偷偷留在后台占内存

内容的提问来源于stack exchange，提问作者Geographos