VBA + Adobe Acrobat SDK - Speichern einer leeren Seite nicht möglich?

Question

Ich benutze VBA als Plattform für einige PDF-Manipulationen. Das Problem, das ich habe, ist, dass ich das PDF-Objekt scheinbar nicht speichern kann, wenn das PDF-Objekt nicht geöffnet wurde. Im Folgenden finden Sie ein Codefragment, das Seiten in das PDF-Objekt einfügt und anschließend das PDF-Objekt speichert. In Bezug auf den Code habe ich festgestellt, dass es funktioniert, seit ich die Save-Methode mit der gleichen Eingabe mit einem anderen PDF-Objekt getestet habe und es hat gut funktioniert. Kann jemand helfen, indem er erklärt, warum es mir nicht erlaubt, das Objekt zu speichern?

Danke!

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 

Wenn der obige Code ausgeführt wurde, funktionierte keine der Erfolgszeilen wie erwartet.

Answer 1

Ändern Sie Zeile 3 dieses ...

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

Der erste Parameter ist der Ort, nach dem die neuen Seiten eingefügt, aber Sie haben keine Seiten, weil das Dokument leer ist, so gibt es keine Seite Null.