元となるpdfを起動して、空のpdfを３つ作成して、それぞれに元のpdfからInsertPageメソッドで頁を挿入して、pdfを上書き保存するイメージみたいな？
※これの応用編

(続きを読む…)

Sub pdfpage_del()

‘ インスタンス
Set PDDoc = CreateObject(”AcroExch.PDDoc”)

‘PDFのオープン
Result = PDDoc.Open(”D:\Work\test.pdf”)

‘ページ総数の確認
intGetNumPages = PDDoc.GetNumPages
MsgBox intGetNumPages

‘例えばPDFの３ページ目を削除　※１ページ目：０　第一引数：start_page、第二引数：end_page
Result = PDDoc.DeletePages(2, 2)

‘ ファイルの保存　※別名保存ができないorz
Result = PDDoc.Save(PDSaveFull, “D:\Work\new.pdf”)

‘削除されたかどうかの確認用msgbox()
intGetNumPages = PDDoc.GetNumPages
MsgBox intGetNumPages

‘あとしまつ
PDDoc.Close

End Sub

(続きを読む…)

例えばローカルフォルダのD:\Workにpdfファイルが２つ格納されているとして、一方のPDFファイル（somosan.pdf）をもう一方のPDFファイル（seppa.pdf)に挿入してPDFを結合して保存する処理をしたい場合、ExcelマクロVBAとかだと大体以下のような記述でマクロを書けば可能のようです↓

※おっと最後に後始末（インスタンスをクローズ）するのを忘れてしまっているがなorz

(続きを読む…)