VBA Excel-劣质PDF转换Word文档

如何解决VBA Excel-劣质PDF转换Word文档

下午好，

我希望具有与Excel VBA宏用.pdf转换的.docx文件相同的质量。 有可能吗？

到目前为止，我使用了以下代码：

 Sub convertpdfword()

 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 Object
  Dim f As File

  Set fo = fso.GetFolder(pdf_path)

  Dim wa As New Word.Application
  Dim doc As Word.Document


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

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

  wa.Quit

  Application.StatusBar = ""

  MsgBox "All done"

  End Sub

我的.docx文件质量下降，如下所示：

是否有可能保持与Foxit PDF-另存为选项相同的质量？还是我应该尝试使用另一种编程语言来做到这一点？