在活动工作簿目录中从 PDF 转换为 Word

Question

早上好，

我想使用 Excel 宏将 PDF 文件转换为 Word 一（从 PDF 到 DOCX）。

到目前为止，我从这个视频中了解到了这个过程：

https://www.youtube.com/watch?v=Op25fUfvIl0

还有这个链接：

https://www.pk-anexcelexpert.com/pdf-to-word-converter-macro-in-excel-vba/

但问题是，该示例基于某些单元格，包括固定文件目录：

  pdf_path = sh.Range("E4").Value
  word_path = sh.Range("E5").Value

我希望目录始终与我正在处理的活动工作簿相同。

在这种情况下，我尝试了以下代码：

    Sub Wort_To_PDF()

       Application.ScreenUpdating = False
       Application.DisplayAlerts = False
       Application.DisplayStatusBar = True


       Dim pdf_path As String
       Dim word_path As String

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

       Dim fso As New FileSystemObject
       Dim fo As Folder
       Dim f As File

       Set fo = fso.GetFolder(pdf_path)

       Dim wa As Object
       Dim doc As Object

       Set wa = CreateObject("word.application")
       wa.Visible = True

       Dim file_Count As Integer

       For Each f In fo.Files

       Application.StatusBar = "Converting - " & file_Count + 1 & "/" & fo.Files.Count
       Set doc = wa.Documents.Open(f.Path)
       doc.SaveAs2 (word_path & "\" & Replace(f.Name, ".pdf", ".docx"))
       doc.Close False
       file_Count = file_Count + 1
       Next

       wa.Quit

       MsgBox "All PDF files have been converted in to word", vbInformation
       Application.StatusBar = ""

   End Sub

我收到错误“类型不匹配”指向以下行：

   Set fo = fso.GetFolder(pdf_path)

我发现了一些关于在 VBA 中使用活动工作簿目录的提示

How to get the path of current worksheet in VBA?

并尝试将其放入我的代码中：

   pdf_path = Application.ActiveWorkbook.Path
   word_path = Application.ActiveWorkbook.FullName

但错误是完全一样的。

谁能帮帮我？我想将 PDF 文件转换为 docx，放在存储我的活动工作簿的同一目录中。

更新：

当我将Dim fo as Folder 更改为Dim fo As Object 或Dim fo as Scripting.Folder 时，我收到另一个错误，通知我该文件已损坏。调试器显示以下行：

   Set doc = wa.Documents.Open(f.Path)

我认为，这个问题可能出在我的 Excel 文档的某个地方，该文档已经打开并使用过了。一般来说，代码只执行第一张而不是全部。

Answer 1

代码可能会失败，因为 ActiveWorkbook.Path 包含无效内容：

如果 ActiveWorkbook 是尚未保存的新工作簿，Path 为空 - 您将收到运行时错误 5（无效参数）

如果 ActiveWorkbook 位于 Sharepoint 站点或类似站点上，Path 可能是一个 URL - 您将收到运行时错误 76（找不到路径）

但是，在您的情况下，GetFolder-方法的返回对象似乎返回了 VBA 运行时不期望的内容。您可能在某处有一个类型定义 Folder 隐藏了脚本库的 Folder 类型。声明你的变量是合格的：

Dim fo as Scripting.Folder

对所有其他脚本对象执行此操作（例如f）

如果你添加了对Microsoft Word 16 Object Library的引用，你也可以用正确的类型声明单词objects，例如

Dim wa as Word.Application
Dim doc as Word.Document

更新：如果您遍历文件夹的所有文件，请确保您只使用 Word.Application 打开 Word 文件。打开一些其他类型的文件会引发像您看到的那样的错误（可能已损坏）

在打开文件之前添加对文件类型的检查 - 您只想转换 word 文件：

For Each f In fo.Files
    if fso.GetExtensionName(f.Name) like "doc*" Then
  
       Set doc = wa.Documents.Open(f.Path)
       doc.SaveAs2 (word_path & "\" & Replace(f.Name, ".pdf", ".docx"))
       doc.Close False
       file_Count = file_Count + 1
    End If
Next f