TOP > AcroExch.PDDoc > *
説明
現在のPDFドキュメントをソースPDFドキュメントから指定されたページ数で入れ替えます。リンクもしおりもコピーされませんがテキスト注釈は引数指定でコピー出来ます。
形式
VARIANT_BOOL ReplacePages(long nStartPage,
LPDISPATCH iPDDocSource,
long nStartSourcePage,
long nNumPages,
long bMergeTextAnnotations);
引数
- 第１引数(long nStartPage) ：
入れ替えされるページ開始番号。開始ページは0から。 - 第２引数(LPDISPATCH iPDDocSource) ：
入れ替え先のPDDocオブジェクト。 - 第３引数(long nStartSourcePage) ：
第２引数PDDocオブジェクトの入れ替え先の開始ページ番号。 - 第４引数(long nNumPages) ：
入れ替えるページ数。 - 第５引数(long bMergeTextAnnotations) ：
1：注釈も入れ替え対象とする。
0：注釈は入れ替え対象としない。
戻り値
- -1 : 成功。
- 0 : 失敗。引数のエラーか、またはAcrobatアプリケーションがこの機能をサポートしていない。
動作するバージョン
| 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
10ページ目を２ページ目の後に移動します。注釈も入れます。サイレントで実行します。
- 事前に参照設定をします。
- F8キーでステップ実行しながら動作確認します。
001 Sub AcroExch_PDDoc_ReplacePages()
002
003 Dim objAcroPDDoc As New Acrobat.AcroPDDoc
004 Dim objAcroPDDoc2 As New Acrobat.AcroPDDoc
005 Dim lRet As Long
006 Dim lStartPage As Long
007 Dim lStartSourcePage As Long
008 Dim lNumPages As Long
009 Dim lMergeTextAnnotations As Long
010 Const CON_FILE As String = "E:\Test01.pdf"
011 Const CON_FILE2 As String = "E:\Test02.pdf"
012
013 'PDFオブジェクトをオープンする。
014 '注意）Acrobatは画面に表示されない。
015 lRet = objAcroPDDoc.Open(CON_FILE)
016 lRet = objAcroPDDoc2.Open(CON_FILE2)
017
018 '10ページ目を２ページ目の後に移動する。
019 lStartPage = 1 '入れ替えされるページ開始番号
020 lStartSourcePage = 10 '入れ替えるobjAcroPDDoc2の開始ページ番号
021 lNumPages = 2 '入れ替えるページ数
022 lMergeTextAnnotations = 1 '注釈も入れる
023 lRet = objAcroPDDoc.ReplacePages(lStartPage, _
024 objAcroPDDoc2, _
025 lStartSourcePage, _
026 lNumPages, _
027 lMergeTextAnnotations)
028
029 'PDFオブジェクトを解放する。
030 lRet = objAcroPDDoc.Save(1, CON_FILE)
031 lRet = objAcroPDDoc.Close
032 lRet = objAcroPDDoc2.Close
033
034 Set objAcroPDDoc = Nothing
035 Set objAcroPDDoc2 = Nothing
036
037 End Sub
補足
- 引数に存在しないページを指定すると戻り値が失敗になります。
Adobe Web 解説
OLE Automation / AcroExch.PDDoc / ReplacePages (公式サイト・英語)
動作確認環境
- WindowsXP Pro(+ SP3) +
Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate
＜ 戻る ＞