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 : 成功。

 

動作するバージョン

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

  • F8キーでステップ実行しながら動作確認する。
  • 事前に参照設定を事前にする。

 

Sub AcroExch_PDDoc_MovePage()

    Dim objAcroPDDoc     As New Acrobat.AcroPDDoc
    Dim lRet                As Long
    Dim lMoveAfterThisPage  As Long
    Dim lPageToMove         As Long
    Const CON_FILE   As String = "E:¥Test01.pdf"

    'PDFオブジェクトをオープンする。
    '注意)Acrobatは画面に表示されない。
    lRet = objAcroPDDoc.Open(CON_FILE)

    '10ページ目を2ページ目の後に移動する。
    lMoveAfterThisPage = 1
    lPageToMove = 9
    lRet = objAcroPDDoc.MovePage(lMoveAfterThisPage, _
                                lPageToMove)

    'PDFオブジェクトを解放する。
    lRet = objAcroPDDoc.Save(1, CON_FILE)
    lRet = objAcroPDDoc.Close
    Set objAcroPDDoc = Nothing

End Sub 

 

補足

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

 

動作確認環境

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

 

戻る

コメントを残す

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

CAPTCHA


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


SAMURAI Plugin

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

  • OS名 バージョン
  • Acrobat バージョン
  • ツール(Excel等) バージョン
コメントにサンプルコードを入れるとエラーになる場合が有ります。その時はコードの前後に <code> ・・・</code> タグを入れてください。