AcroExch.PDDoc: Create メソッド

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


説明

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

 

形式

VARIANT_BOOL Create();

 

引数

  1. 無し。

 

戻り値

  • -1:成功。作成出来た。
  • 0:失敗。または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キーでステップ実行しながら動作確認する。
  • 事前に参照設定を事前にする。

 

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メソッドを実行すれば0ページの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

 

戻る

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA


出来るだけ早く返答する様には心がけています。
が、遅くなる時もありますのでご了承ください。


SAMURAI Plugin

コメントをする時は最低でも以下をお願いします。

  • OS名 バージョン
  • Acrobat バージョン
  • ツール(Excel等) バージョン