口腔顔面痛センター、 npdsメリーランド州

1. 第１引数(nInsertPageAfter) ：
   挿入を開始するページ番号。このページ番号の後に挿入される。なおページ番号１が０だから、最初は－１となる。ページ番号1は0として扱う。但し、最初のページの前に入れる時はPDBeforeFirstPage（＝－１）、最終頁の後に追加する時はPDLastPage（＝－２）の定数を指定する事も出来る。数値-1.-2を指定してももちろん構わない。このPDBeforeFirstPageとPDLastPageの定数を扱う時はIAC.BAS標準モジュールの追加が別途必要となる。
2. 第２引数(iPDDocSource) ：
   挿入するPDFドキュメントのPDDocオブジェクト。
3. 第３引数(nStartPage) ：
   挿入するPDFドキュメントの開始ページ番号。１ページ目は０。
   問題点有り。＜注意事項＞を参照。
4. 第４引数(nNumPages) ：
   挿入するPDFドキュメントのページ数。
5. 第５引数(bBookmarks) ：
   しおりも追加する時はTrue(-1)。追加しない時はFalse(0)。
   問題点有り。＜注意事項＞を参照。

＜戻り値＞ 

• －１：成功。
• ０：失敗。または挿入出来なかった。

＜動作するバージョン＞

OK = 動作する。
NO = 動作しない。 戻り値が0を返す。
- = 未確認。 環境とテスト時間が出来次第、結果を入力します。

農村高齢者のうつ病

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

Sub AcroExch_PDDoc_InsertPages()
    Dim AcroPDDocNew    As New Acrobat.AcroPDDoc
    Dim AcroPDDocAdd    As New Acrobat.AcroPDDoc
    Dim lRet            As Long
    Dim lGetNumPages    As Long
    Dim lPages          As Long
    
    lPages = 0
    '空のPDFファイルを作成する
    lRet = AcroPDDocNew.Create()
    
    '空のPDFファイルに追加する
    lRet = AcroPDDocAdd.Open("E:¥Test01_1.pdf")
    lGetNumPages = AcroPDDocAdd.GetNumPages()
    lRet = AcroPDDocNew.InsertPages(lPages – 1, _
                AcroPDDocAdd, 0, lGetNumPages, True)
    lRet = AcroPDDocAdd.Close()
    
    lPages = lPages + lGetNumPages
    
    '更にPDFファイルを追加する
    lRet = AcroPDDocAdd.
Open("E:¥Test01_2.pdf")
    lGetNumPages = AcroPDDocAdd.GetNumPages()
    lRet = AcroPDDocNew.InsertPages(lPages – 1, _
                AcroPDDocAdd, 0, lGetNumPages, True)
    lRet = AcroPDDocAdd.Close()
    
    '結合したPDFファイルを最後に保存する
    lRet = AcroPDDocNew.Save(1, "E:¥Test01_NEW.pdf")
    lRet = AcroPDDocNew.Close()
    
    'オブジェクトを強制開放する
    Set AcroPDDocAdd = Nothing
    Set AcroPDDocNew = Nothing
End Sub

 
＜補足＞ 

• 結合時にしおりの階層のトップが元のファイル名として最上位に追加される。要注意。
• 「挿入するPDFドキュメント」をAcrobat SDKでは「ソースドキュメント」と表現している。
• 英語サイトで関連サンプルを発見。以下にURLをメモする。詳細は未分析。
  

＜注意事項＞ 

• 「第３引数(nStartPage)：挿入するPDFドキュメントの開始ページ番号」が０以外の時、InsertPages メソッドが失敗する場合がある。必ずではないが、何度も行っていると動作が不安定？になり、InsertPages メソッドが失敗となる。その予防策として予め挿入するPDFドキュメントから余分なページを削除しておき、InsertPages メソッドを実行する時に第３引数(nStartPage)が０になるようにする事を奨める。
• 第5引数でTrueを指定して「しおりも追加」状態にすると、第4引数が無視され、全頁が挿入される。

＜動作確認環境＞

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

＜ 戻る ＞