AcroExch.PDDoc: MovePage メソッド

TOP > AcroExch.PDDoc > MovePage      [...]


説明

同じPDFドキュメントの1ページを別ページへ移動させます。

形式

VARIANT_BOOL MovePage(long nMoveAfterThisPage,
                                       long nPageToMove);

引数

  1. 第1引数(nMoveAfterThisPage) :
    このページ番号の後に移動する。開始ページは0。
  2. 第2引数(nPageToMove) :
    移動させるページ番号。

戻り値

  • 0 : 失敗。またはAcrobatアプリケーションがこの機能をサポートしていない。
  • -1 : 成功。

動作するバージョン

VersionAdobe
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
8OKAcrobat 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ドキュメントの10ページ目を2ページ目の後に移動する。
サイレント(Acrobatアプリケーションを非表示)で実行する。

  • F8キーでステップ実行しながら動作確認する。
  • 事前に参照設定を事前にする。
001 Sub AcroExch_PDDoc_MovePage() 002 003 Dim objAcroPDDoc As New Acrobat.AcroPDDoc 004 Dim lRet As Long 005 Dim lMoveAfterThisPage As Long 006 Dim lPageToMove As Long 007 Const CON_FILE As String = "E:\Test01.pdf" 008 009 'PDFオブジェクトをオープンする。 010 '注意)Acrobatは画面に表示されない。 011 lRet = objAcroPDDoc.Open(CON_FILE) 012 013 '10ページ目を2ページ目の後に移動する。 014 lMoveAfterThisPage = 1 015 lPageToMove = 9 016 lRet = objAcroPDDoc.MovePage(lMoveAfterThisPage, _ 017 lPageToMove) 018 019 'PDFオブジェクトを解放する。 020 lRet = objAcroPDDoc.Save(1, CON_FILE) 021 lRet = objAcroPDDoc.Close 022 Set objAcroPDDoc = Nothing 023 024 End Sub


 Highlight:プログラミング言語のソースコードを構文で色分け (GUI編)
 

 

 

補足

  • 引数に存在しないページを指定すると戻り値が失敗になる。

動作確認環境

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

戻る

コメントを残す

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

CAPTCHA



SAMURAI Plugin

コメントをする時は出来れば以下もお願いします。

  • OS名 バージョン
  • Acrobat バージョン
  • ツール(Excel等) バージョン
コメントにサンプルコードを入れる時はコードを全て全角文字列にしてください。コチラで半角に戻します。それでもエラーが回避できない時はコメント下さい。個別に対処します。



お仕事で当サイトを見ている方へ
考え込んだら、ご質問下さい。
一緒に解決策を考えましょう。

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください