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

(続きを読む…)

ちょうどパスモが12月の下旬に有効期限が切れたのですが、でもって年末年始は実家に帰省するのでパスモを更新するのはもったいないかな？と思ってここ数日間徒歩で会社通勤してるのですが、１月年明けにパスモを新規に買ったとしても、次に６月に更新した際６月７日～１月６日のパスモを使うことになって来年の年末年始とかのパスモが無駄になるので、この前更新しておいてもどちらでも同じだったかも？と今日会社帰りに歩いている時にふと思った俺。