2017-07-20 17 views
0

私はいくつかのPDF操作を行うためのプラットフォームとしてVBAを使用しています。私が抱えている問題は、PDFオブジェクトが開かれていない場合、PDFオブジェクトを保存するようには思えないということです。以下は、PDFオブジェクトにページを挿入し、pdfオブジェクトを保存するコードのスニペットです。コードに関しては、別のpdfオブジェクトで同じ入力を使ってsaveメソッドをテストしたところ、うまくいきましたので、動作することを確認しました。オブジェクトを保存することができない理由を説明することで誰かを助けることができますか?VBA + Adob​​e Acrobat SDK - 空のページを保存できません。

ありがとうございます!

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 

上記のコードが実行されたとき、いずれの成功ラインも期待どおりに機能しませんでした。

答えて

1

これに変更ライン3 ...

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

最初のパラメータは、新しいページが挿入されますそのあと場所ですが、ドキュメントが空であるので、あなたは何のページを持っていないので、何ページゼロはありません。

+0

私はあなたのアプローチを試しましたが、うまくいきませんでした... – Isa

+0

その後、コードの残りの部分を見る必要があります。 – joelgeraci

+0

メッセージを送信する方法を見つけようとしていますが、どこにも見つからないようです。私はあなたにそれを送ることができる良い方法はありますか?私は現時点で他の場所に空のPDFファイルを作成し、それをテンプレートファイルとして使用することで回避策を使用しました。しかし、それがうまくいかない理由を理解することは良いでしょう。ありがとう! – Isa

関連する問題