TOP > AcroExch.PDDoc > MovePage [...]
説明
同じPDFドキュメントの１ページを別ページへ移動させます。
形式
VARIANT_BOOL MovePage(long nMoveAfterThisPage,
long nPageToMove);
引数
- 第１引数(nMoveAfterThisPage) ：
このページ番号の後に移動する。開始ページは0。 - 第２引数(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ページ目を２ページ目の後に移動する。
サイレント(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ページ目を２ページ目の後に移動する。
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
＜ 戻る ＞