TOP > AcroExch.PDDoc > DeletePages [...]
説明
１つのPDFドキュメントから指定ページを削除する。
形式
VARIANT_BOOL DeletePages(long nStartPage, long nEndPage);
引数
- 第１引数(nStartPage) ：
開始ページ。開始ページは０から。 - 第２引数(nEndPage) ：
終了ページ。
戻り値
- －１ ： 成功。指定ページは削除された。
- ０ ： 失敗。削除されなかった。
該当ページが存在しなかったか、またはPDFファイルのセキュリティで編集不可の時。
動作するバージョン
| Version | Adobe Acrobat | 備考 |
|---|---|---|
| 4 | - | Acrobat 4.0 ※Windows 98SE + Excel 2000 |
| 5 | - | Acrobat 5.0.5 |
| 6 | - | Acrobat 6.0.3 Pro |
| 7 | - | Acrobat 7.0.9 Pro Acrobat 7.1.4 Pro |
| 8 | OK | Acrobat 8.1.2 Pro |
| 9 | - | Acrobat 9.3.2 Extended |
| 10 | - | Acrobat X (10.1.8) Extended |
| 11 | - | Acrobat XI (11.0.04) Extended |
- OK = 動作する。
- NO = 動作しない。 戻り値が0を返す。
- - = 未確認。
サンプル：ExcelのVBA
説明：PDFドキュメントの最初のページを削除し、最適化をして別名で保存する。
- F8キーでステップ実行しながら動作確認する。
- 事前に参照設定を事前にする。
001 Private Const PDSaveFull = &H1
002 Private Const PDSaveLinearized = &H4
003 Private Const PDSaveCollectGarbage = &H20
004
005 Sub AcroExch_PDDoc_DeletePages()
006 Dim objAcroPDDoc As New Acrobat.AcroPDDoc
007 Dim lRet As Long
008
009 'PDFファイルを開いて表示する
010 lRet = objAcroPDDoc.Open("E:\Test01.pdf")
011
012 '最初のページのみ削除する
013 lRet = objAcroPDDoc.DeletePages(0, 0)
014
015 '別名でPDFファイルを保存する
016 lRet = objAcroPDDoc.Save _
017 (PDSaveFull + PDSaveLinearized + _
018 PDSaveCollectGarbage, _
019 "E:\Test01_T.pdf")
020
021 'PDFファイルを閉じる
022 lRet = objAcroPDDoc.Close
023
024 'オブジェクトを強制開放する
025 Set objAcroPDDoc = Nothing
026
027 End Sub
Highlight：プログラミング言語のソースコードを構文で色分け (GUI編)
補足
- ゼロ頁のPDFは作成出来ません。
- ページ削除後にゼロ頁になる場合は、戻り値が 0 の False が返り、
削除は実行されません。
動作確認環境
- WindowsXP Pro(+ SP3) +
Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate
＜ 戻る ＞