如何打开PDF？

Question

我正在尝试在 Word 中使用 VBA 打开 PDF 文档，并最终进行一些文本操作。

我将下面的代码作为测试，它没有错误并且似乎正在打开 pdf。

当我尝试插入刚刚在 Word 中打开的 pdf 的文本时，它会粘贴一个带有问号的框。我不确定我是否没有正确打开 PDF，或者文件是否正在打开。

'Earlier code truncated for brevity
Dim FSOSubFolder As Object
Dim FSOFile As Object
Dim anotherString As String

For Each FSOSubFolder In FSOFolder.SubFolders
    LoopAllSubFolders FSOSubFolder
Next

For Each FSOFile In FSOFolder.Files
    
    ActiveDocument.Range.InsertAfter ("File Name: " & FSOFile.Name & vbNewLine) 'This part works
    Dim myWord As Word.Application, myDoc As Word.Document
    Set myWord = New Word.Application  
    Set myDoc = myWord.Documents.Open(FileName:=FSOFile.Path, ConfirmConversions:=False, Format:="PDF Files")
    myDoc.Activate
    Selection.WholeStory
    anotherString = Selection.Range.Text
    myDoc.Close
    ActiveDocument.Range.InsertAfter (anotherString) 'This pastes a box with a question mark inside

    Set FSOFile = Nothing
    Set FSOSubFolder = Nothing

Next 

我没有禁止屏幕更新或警告，也没有看到新的 Word 文档打开。

Answer 1

看起来您有一些为 Excel 编写的代码，您正尝试在 Word 中使用

    Dim myWord As Word.Application, myDoc As Word.Document
    Set myWord = New Word.Application  
    Set myDoc = myWord.Documents.Open(FileName:=FSOFile.Path, ConfirmConversions:=False, Format:="PDF Files")
    myDoc.Activate

当您在 Word 中运行代码时，您已经拥有一个 Word 实例，因此无需打开一个新实例，而且您绝对不想为每个尝试打开的文件创建一个新的 Word 实例，尤其是当您的代码不会退出任何这些额外的实例时。您没有看到正在打开的文档，因为您的代码不会使 Word 的其他实例可见。

你的代码去掉了所有不必要的部分：

   'Earlier code truncated for brevity
   Dim FSOSubFolder As Object
   Dim FSOFile As Object
   Dim anotherString As String

   For Each FSOSubFolder In FSOFolder.SubFolders
      LoopAllSubFolders FSOSubFolder
   Next
   
   Dim originalDoc As Word.Document
   Set originalDoc = ActiveDocument

   For Each FSOFile In FSOFolder.Files
    
      originalDoc.Range.InsertAfter ("File Name: " & FSOFile.Name & vbNewLine) 'This part works
      Dim pdfDoc As Word.Document
      Set pdfDoc = Documents.Open(filename:=FSOFile.Path, ConfirmConversions:=False, Format:=wdOpenFormatAuto)
      'use this if you just want the text content without formatting
      originalDoc.Range.InsertAfter pdfDoc.Content.Text
      'use this is if you want the formatted content
      'originalDoc.Range.InsertParagraphAfter
      'originalDoc.Paragraphs.Last.Range.FormattedText = pdfDoc.Content.FormattedText
      pdfDoc.Close

      Set FSOFile = Nothing
      Set FSOSubFolder = Nothing
   Next

当您尝试打开 pdf 时，您可能会收到通知，尽管设置了 ConfirmConversions:=False，但 Word 将尝试转换它