求可将PDF转换而非另存为Word的Excel VBA代码

你的现有代码仅完成了PDF文件的格式转存操作，并未对PDF内容进行文本识别（OCR转换），因此生成的Word文件若对应扫描版或无文本层的PDF，只会包含嵌入的图片，无法编辑文本。以下是实现真正文本转换的VBA代码，核心调用Word内置OCR功能识别PDF中的文本：

Sub ConvertPDFToEditableWord()
    Dim Path As String
    Dim File As String
    
    ' 替换为你的PDF文件夹路径（末尾必须加反斜杠）
    Path = "C:\Your\PDF\Folder\Path\"
    
    ' 遍历文件夹下所有PDF文件
    File = Dir(Path & "*.pdf")
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = wdAlertsNone
    
    Do While File <> ""
        ' 启用OCR打开PDF，识别文本内容
        Documents.Open _
            FileName:=Path & File, _
            Format:=wdOpenFormatPDF, _
            ConfirmConversions:=False, _
            ReadOnly:=False
        
        ' 保存为可编辑的docx格式
        ActiveDocument.SaveAs2 _
            FileName:=Replace(Path & File, ".pdf", ".docx"), _
            FileFormat:=wdFormatXMLDocument
        
        ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
        File = Dir
    Loop
    
    Application.DisplayAlerts = wdAlertsAll
    Application.ScreenUpdating = True
    MsgBox "转换完成！"
End Sub

关键说明 #

• 代码通过wdOpenFormatPDF指定打开格式，自动触发Word的OCR功能，将PDF中的图像文本识别为可编辑的Word文本
• 关闭屏幕更新和提示弹窗，提升批量转换的效率
• 保存格式使用wdFormatXMLDocument（标准docx格式），确保生成的文件完全可编辑

注意事项 #

• 需确保Office 2013及以上版本已安装OCR组件，精简版Office可能缺失此功能
• 扫描版PDF的转换效果取决于文件清晰度、字体辨识度，模糊或手写体PDF可能存在识别误差
• 运行代码前务必将Path变量替换为你的PDF文件夹实际路径

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