PDF

＜説明＞
PDFドキュメント（オブジェクト）、又はAcrobatがサポートしている画像ファイル(jpeg,png等)を開きます。
Acrobatアプリケーションが起動されていれば指定したファイルは画面表示されます。(<-注意事項有り)
Acrobatアプリケーションが起動されて無い時はインスタンス（オブジェクト）のみ作成します。

＜形式＞
VARIANT_BOOL Open(BSTR szFullPath,
     BSTR szTempTitle);

＜戻り値＞

• 戻り値が-1の時は成功。
• 戻り値が0の時は失敗。

＜引数＞

1. 第一引数(BSTR szFullPath) ：
   PDFファイルのフルパス。
   Acrobatがサポートしている画像ファイル(jpeg,png等)のフルパス。
2. 第二引数(BSTR szTempTitle) ：
   開く時のタイトル。指定無し””でも構わない。

＜動作するバージョン＞

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

＜サンプル：ExcelのVBA＞
説明：PDFファイルを画面表示せず、インスタンスのみ作成して閉じる。

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

Sub AcroExch_AVDoc_Open()
    Dim objAcroAVDoc    As New Acrobat.AcroAVDoc
    Dim lRet            As Long

    ‘PDFファイルを開く。
    On Error Resume Next
    lRet = objAcroAVDoc.Open(“E:¥Test01.pdf”, “”)
    If lRet = False Then
        ‘Acrobatがエラーメッセージを表示する
        GoTo Skip_CommandButton01_Click
    End If

    ‘PDFファイルを全て閉じます。
    lRet = objAcroAVDoc.Close(1)
Skip_CommandButton01_Click:
    ‘PDFオブジェクトを強制解放する
    Set objAcroAVDoc = Nothing
End Sub

 
＜補足＞

• OpenしたPDFドキュメント、又はAcrobatがサポートしている画像ファイル(jpeg,png等)は必ずCloseAllDocsメソッドかCloseメソッドで閉じる必要がある。その処理をしないとAcrobatアプリケーションを再起動した時に、そのファイルが指定をしないのに再表示される。
  注）何らかに形でインスタンス情報がメモリ上に残る為です。
• Openしたファイルを画面表示せずに処理することが可能です。これがこのOpenメソッドの最大の特徴です。

＜注意①＞

• 存在しないFファイルを指定すると処理を中断し、Acrobatアプリケーションから以下のエラーメッセージ・ダイアログが表示されます。
  ※「この文書を開くときにエラーが発生しました。このファイルが見つかりません。」
  
• 事前にPDFファイル、又はAcrobatがサポートしている画像ファイル(jpeg,png等)をチェックするロジックを当Openメソッドの前に入れる方が最良の方法だと思います。
  下記のサンプルはExcelファイルの拡張子をPDFにしたものです。Dir関数で先にエラーになります。

Private Sub CommandButton01A_Click()
    Dim objAcroApp      As New Acrobat.AcroApp
    Dim objAcroAVDoc    As New Acrobat.AcroAVDoc
    Dim lRet            As Long
    Const CON_FILENAME  As String = “E:¥Test01_excel.pdf”
    
    ‘PDFファイルの属性チェック
    If Dir(CON_FILENAME, vbNormal) = “” Then
        MsgBox CON_FILENAME & _
        ” ファイルは存在しないか、PDFではありません。”, _
        vbOKOnly + vbExclamation, “エラー”
        GoTo Skip_CommandButton01_Click
    End If
    
    ‘Acrobatアプリケーションを起動する。
    lRet = objAcroApp.Show
    ‘PDFファイルを開いて表示する。
    lRet = objAcroAVDoc.Open(CON_FILENAME, “”)
    If objAcroAVDoc.IsValid = 0 Then
        MsgBox CON_FILENAME & _
        ” ファイルはPDFではありません。”, _
        vbOKOnly + vbExclamation, “エラー”
        GoTo Skip_CommandButton01_Click
    End If
    ‘PDFファイルを全て閉じます。
    lRet = objAcroApp.CloseAllDocs
    ‘Acrobatアプリケーションを終了する。
    lRet = objAcroApp.Hide
    lRet = objAcroApp.Exit
Skip_CommandButton01_Click:
    ‘PDFオブジェクトを強制解放する
    Set objAcroAVDoc = Nothing
    Set objAcroApp = Nothing
End Sub

＜備考＞ 

• kenkenさんのコメントを元に一部を修正させて頂きました。
  この場を借りてお礼を申し上げます。

＜注意②＞ ★2009/01/07 追加

• Acrobat v8.1.3、ｖ9.0の場合、オブジェクトは生成され、戻り値もTrue（-1）だが、ファイルが画面表示されない現象が発生しています。
  原因不明です。
  Windows環境やExcelバージョンを変えても結果は同じ。なぜPDFドキュメント、又はAcrobatがサポートしている画像ファイル(jpeg,png等)が画面に表示されないかは、分からないです。
  Acrobat v7.0ではPDFがAcrobat上に画面表示される。

＜動作確認環境＞

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

＜ 戻る ＞