TOP > AcroExch.PDDoc > Create      [...]

---

説明

空のPDFドキュメント(AcroExch.PDDocインスタンス)を作成します。

形式

VARIANT_BOOL Create();

引数

1. 無し。

戻り値

• －１：成功。作成出来た。
• ０：失敗。またはAcrobatアプリケーションがその機能をサポートしていない。

動作するバージョン

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ファイルを作成し、それにTest01_1.pdfファイルの最初から裏表紙の前のページまでを挿入する。
そしてTest01_NEW.pdfファイルとして出力する。しおりも同時に入れる。

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

　

　

001 Sub AcroExch_PDDoc_Create() 002 003 Dim AcroPDDocNew As New Acrobat.AcroPDDoc 004 Dim AcroPDDocAdd As New Acrobat.AcroPDDoc 005 Dim lRet As Long 006 Dim lGetNumPages As Long 007 008 '空のPDFファイルを作成する 009 lRet = AcroPDDocNew.Create() 010 011 '空のPDFファイルに追加する 012 lRet = AcroPDDocAdd.Open("E:\Test01_1.pdf") 013 lGetNumPages = AcroPDDocAdd.GetNumPages() 014 '1ページ目から裏表紙の前のページまでを最初のページの前に挿入。 015 lRet = AcroPDDocNew.InsertPages(-1, _ 016 AcroPDDocAdd, 0, lGetNumPages - 1, True) 017 Debug.Print "AcroPDDocNew.GetNumPages=" & _ 018 AcroPDDocNew.GetNumPages 019 lRet = AcroPDDocAdd.Close() 020 021 '新しいPDFファイルを別名で保存する 022 lRet = AcroPDDocNew.Save(1, "E:\Test01_NEW.pdf") 023 lRet = AcroPDDocNew.Close() 024 025 'オブジェクトを強制開放する 026 Set AcroPDDocAdd = Nothing 027 Set AcroPDDocNew = Nothing 028 029 End Sub

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

補足

• 上記サンプルはサイレント（Acrobat本体が画面に表示されない）で実行されます。
• Create メソッドの後に、Saveメソッド、そしてCloseメソッドを実行すれば０ページのPDFドキュメントが作成されます。
   
  例）
  001 Sub AcroExch_PDDoc_Create2() 002 Dim AcroPDDocNew As New Acrobat.AcroPDDoc 003 Dim AcroPDDocAdd As New Acrobat.AcroPDDoc 004 Dim lRet As Long 005 Dim lGetNumPages As Long 006 007 '空のPDFファイルを作成する 008 lRet = AcroPDDocNew.Create() 009 '空のPDFファイルを保存する 010 lRet = AcroPDDocNew.Save(1, "E:¥Test01_NEW.pdf") 011 lRet = AcroPDDocNew.Close() 012 013 'オブジェクトを強制開放する 014 Set AcroPDDocAdd = Nothing 015 Set AcroPDDocNew = Nothing 016 End Sub

動作確認環境

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

＜ 戻る ＞