使用VBA将PDF另存为DOCX时遇文件占用错误求助

• 清理Acrobat残留进程
  之前代码运行后，Acrobat进程可能未完全退出，导致PDF文件被后台进程锁定。打开任务管理器，找到AcroRd32.exe或Acrobat.exe进程并结束，再重新运行代码。也可以在代码开头加入进程清理逻辑（谨慎使用，避免误关用户正在使用的Acrobat）：

  ' 代码开头添加：结束残留的Acrobat进程
  On Error Resume Next
  Shell "taskkill /f /im AcroRd32.exe", vbHide
  Shell "taskkill /f /im Acrobat.exe", vbHide
  On Error GoTo 0
  

• 调整保存路径与权限
  尝试将DOCX文件保存到非系统默认下载目录（比如D:\Temp\123.docx），避免Downloads目录的权限限制。同时确认目标路径没有同名DOCX文件（包括隐藏文件），若存在先删除。

• 修正对象释放与关闭顺序
  原代码的对象关闭顺序可能存在问题，需确保SaveAs完成后先释放JS对象，再关闭文档与应用。调整后的代码如下：

  Sub PDFSaveAs()
      Dim AcroApp As Object, AcroAVDoc As Object, AcroPDDoc As Object, jso As Object
      
      ' 清理残留进程
      On Error Resume Next
      Shell "taskkill /f /im AcroRd32.exe", vbHide
      Shell "taskkill /f /im Acrobat.exe", vbHide
      On Error GoTo 0
      
      Set AcroApp = CreateObject("AcroExch.App")
      AcroApp.Hide ' 隐藏Acrobat窗口，避免干扰操作
      Set AcroAVDoc = CreateObject("AcroExch.AVDoc")
      
      If AcroAVDoc.Open("C:\Users\User\Downloads\123.pdf", vbNull) = True Then
          Set AcroPDDoc = AcroAVDoc.GetPDDoc
          Set jso = AcroPDDoc.GetJSObject
          If Not jso Is Nothing Then
              ' 更换路径测试保存
              jso.SaveAs "D:\Temp\123.docx", "com.adobe.acrobat.docx"
              Set jso = Nothing ' 先释放JS对象
          End If
          AcroPDDoc.Close ' 关闭PDF文档对象
          Set AcroPDDoc = Nothing
      End If
      
      AcroAVDoc.Close False
      Set AcroAVDoc = Nothing
      AcroApp.Exit
      Set AcroApp = Nothing
  End Sub
  

• 验证版本兼容性
  确认你的Acrobat版本支持DOCX格式导出，旧版Acrobat可能需要更新或安装插件才能支持该格式。此外，可尝试将SaveAs的格式参数替换为"docx"测试是否有效。

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