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

説明

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

形式

VARIANT_BOOL Create();

引数

1. 無し。

戻り値

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

動作するバージョン

• OK = 動作する。
• NO = 動作しない。 戻り値が0を返す。
• - = 未確認。

サンプル：ExcelのVBA

説明：空のPDFファイルを作成し、それにTest01_1.pdfファイルの最初から裏表紙の前のページまでを挿入する。
そしてTest01_NEW.pdfファイルとして出力する。しおりも同時に入れる。

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

Sub AcroExch_PDDoc_Create()

    Dim AcroPDDocNew    As New Acrobat.AcroPDDoc
    Dim AcroPDDocAdd    As New Acrobat.AcroPDDoc
    Dim lRet            As Long
    Dim lGetNumPages    As Long
    
    '空のPDFファイルを作成する
    lRet = AcroPDDocNew.Create()
    
    '空のPDFファイルに追加する
    lRet = AcroPDDocAdd.Open("E:¥Test01_1.pdf")
    lGetNumPages = AcroPDDocAdd.GetNumPages()
    '1ページ目から裏表紙の前のページまでを最初のページの前に挿入。
    lRet = AcroPDDocNew.InsertPages(-1, _
                AcroPDDocAdd, 0, lGetNumPages - 1, True)
    Debug.Print "AcroPDDocNew.GetNumPages=" & _
                 AcroPDDocNew.GetNumPages
    lRet = AcroPDDocAdd.Close()
    
    '新しいPDFファイルを別名で保存する
    lRet = AcroPDDocNew.Save(1, "E:¥Test01_NEW.pdf")
    lRet = AcroPDDocNew.Close()
    
    'オブジェクトを強制開放する
    Set AcroPDDocAdd = Nothing
    Set AcroPDDocNew = Nothing

End Sub

補足

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

動作確認環境

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

＜ 戻る ＞