0

我正在使用 VBA 作为平台来进行一些 PDF 操作。我遇到的问题是，如果 PDF 对象尚未打开，我似乎无法保存 PDF 对象。下面是向 PDF 对象插入页面，然后保存 pdf 对象的代码片段。就代码而言，我已经确定它可以工作，因为我已经用另一个 pdf 对象使用相同的输入测试了 save 方法，它工作得很好。有人可以帮助解释为什么它不允许我保存对象吗？

谢谢！

Dim NewPDF As New Acrobat.AcroPDDoc
Set NewPDF = CreateObject("AcroExch.PDDoc")
If NewPDF.InsertPages(j, OriPDF, j, 1, 0) Then MsgBox "Success"
If NewPDF.Save(PDSaveLinearized, WritePath & "\" & sh.Cells(StartRow + j - 1, i).Value & ".pdf") Then MsgBox "Success"
NewPDF.Close
Set NewPDF = Nothing

运行上述代码时，两条成功线均未按预期工作。

4

1 回答 1

1

将第 3 行更改为此...

If NewPDF.InsertPages(-1, OriPDF, j, 1, 0) Then MsgBox "Success"

第一个参数是插入新页面的位置，但您没有页面，因为文档是空的，所以没有页面零。

于 2017-07-21T05:57:10.787 回答