TOP > AcroExch.PDDoc > *
説明
現在扱っているAcroPDDocオブジェクトのPDFファイル名を返します。フルパス名ではありません。
形式
BSTR GetFileName();
引数
- 無し
戻り値
- AcroPDDocオブジェクトが扱っているPDFファイル名。最大半角256文字のファイル名。 ※<-未確認
動作するバージョン
| 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.2.4 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
AcroPDDocオブジェクトが開いているPDFのファイル名を表示します。
- 事前に参照設定をします。
- F8キーでステップ実行しながら動作確認します。
001 Sub AcroExch_PDDoc_GetFileName()
002
003 'Acrobatオブジェクトの定義＆作成
004 'Acrobat 4,5,6 の時
005 ' Dim objAcroPDDoc As Acrobat.CAcroPDDoc
006 ' Set objAcroPDDoc = CreateObject("AcroExch.PDDoc")
007
008 'Acrobat 7,8,9,10,11 の時
009 Dim objAcroPDDoc As New Acrobat.AcroPDDoc
010
011 '以降はAcrobat全て共通
012 Dim lRet As Long '戻り値
013
014 'PDFファイル
015 Const CON_PDF_FILE = "C:\work\test01.pdf"
016
017 'PDFドキュメントを開いて表示する。
018 lRet = objAcroPDDoc.Open(CON_PDF_FILE)
019
020 MsgBox "PDF File Name" & vbCrLf & vbCrLf & _
021 objAcroPDDoc.GetFileName, vbOKOnly, "PDDoc.GetFileName"
022
023 'PDFファイルを閉じます。
024 lRet = objAcroPDDoc.Close()
025
026 'オブジェクトを強制解放する
027 Set objAcroPDDoc = Nothing
028
029 End Sub
実行結果
開いているPDFのファイル名をMsgBox表示します。
PDF File Name
test01.pdf
補足
- PDFファイルがオープンされてないとNULL文字が戻り値になります。
Adobe Web 解説
OLE Automation / AcroExch.PDDoc / GetFileName (公式サイト・英語)
動作確認環境
- WindowsXP Pro( + SP3 + WindowsUpdate)
+ Acrobat 8.2.4 Pro + Office 2003( + SP3)
＜ 戻る ＞