VB 脚本从 Docx 制作 PDF 时出现“另存为”错误

Question

我在 CMD 窗口中运行以下代码，将约 200 页的 .Docx 文件转换为 PDF：

  Set App       = CreateObject("AcroExch.App")
  Set AVDoc     = CreateObject("AcroExch.AVDoc")
  Set PDDoc     = CreateObject("AcroExch.PDDoc")
  AVDoc.Open    "C:\Users\rodger.beard\Desktop\DTS User Guide.docx", "
  SET PDDoc     = AVDoc.GetPDDoc
  PDDoc.SaveAS  1, "C:\Users\rodger.beard\Desktop\DTS User Guide.pdf"
  AVDoc.Close   False
  PDDoc.Close
  App.Exit
  Set AcroApp   = Nothing
  Set AVDoc     = Nothing
  Set PDDoc     = Nothing

我在第 6 行收到错误 800A01B，PDDoc.SaveAs -“对象不支持此属性或方法”

我已经用谷歌搜索了几个小时。我想不通。 :(

Answer 1

如果对象不支持该方法，则RTFM（阅读功能手册）。

您可以使用 Adobe Acrobat 阅读其所有 PDF 手册，特别是在这种情况下，该部分可能有效？

但是 Adobe 不再让他们的文档变得简单，即它们不能像内容一样被访问？它们已被 HTML 取代！

因此，要找到 acrobatsdk_iacguide.pdf 的最佳副本（您在编码之前阅读的副本）可能会在这里。 https://opensource.adobe.com/dc-acrobat-sdk-docs/library/interapp/index.html

所以所说的对象是有效的

PDDoc

，但他们未能显示有效的方法是什么，我不得不说历史是

.save

所以我建议使用或尝试不使用括号

PDDoc.Save  (1, "C:\Users\rodger.beard\Desktop\DTS User Guide.pdf")