AcroExch.PDDoc: DeletePages メソッド

TOP > AcroExch.PDDoc > DeletePages      [...]


説明

1つのPDFドキュメントから指定ページを削除する。

 

形式

VARIANT_BOOL DeletePages(long nStartPage, long nEndPage);

 

引数

  1. 第1引数(nStartPage) :
    開始ページ。開始ページは0から。
  2. 第2引数(nEndPage) :
    終了ページ。

  

戻り値

  • -1 : 成功。指定ページは削除された。
  • 0 : 失敗。削除されなかった。
    該当ページが存在しなかったか、または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キーでステップ実行しながら動作確認する。
  • 事前に参照設定を事前にする。 

 

Private Const PDSaveFull = &H1
Private Const PDSaveLinearized = &H4
Private Const PDSaveCollectGarbage = &H20 

Sub AcroExch_PDDoc_DeletePages()
    Dim objAcroPDDoc    As New Acrobat.AcroPDDoc
    Dim lRet            As Long 
     
    ‘PDFファイルを開いて表示する
    lRet = objAcroPDDoc.Open("E:¥Test01.pdf"
     
    ‘最初のページのみ削除する
    lRet = objAcroPDDoc.DeletePages(0, 0
     
    ‘別名でPDFファイルを保存する
    lRet = objAcroPDDoc.Save _
        (PDSaveFull + PDSaveLinearized + _
         PDSaveCollectGarbage, _
         "E:¥Test01_T.pdf"
     
    ‘PDFファイルを閉じる
    lRet = objAcroPDDoc.Close 
     
    ‘オブジェクトを強制開放する
    Set objAcroPDDoc = Nothing

End Sub

 

補足

  • ゼロ頁のPDFは作成出来ません。
  • ページ削除後にゼロ頁になる場合は、戻り値が 0 の False が返り、
    削除は実行されません。

 

動作確認環境

  • WindowsXP Pro(+ SP3) +
    Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate

 

戻る

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA


出来るだけ早く返答する様には心がけています。
が、遅くなる時もありますのでご了承ください。


SAMURAI Plugin