TOP > AcroExch.PDDoc > GetFileName [...]
説明
現在扱っているAcroPDDocオブジェクトのPDFファイル名を得ます。
※フルパス名ではありません。
形式
BSTR GetFileName();
引数
- 無し
戻り値
- AcroPDDocオブジェクトが扱っているPDFファイル名。
最大半角256文字のファイル名。 ※<-未確認
動作するバージョン
| 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.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
Highlight：プログラミング言語のソースコードを構文で色分け (GUI編)
実行結果
補足
- PDFファイルがオープンされてないとNULL文字が戻り値になります。
動作確認環境
- WindowsXP Pro( + SP3 + WindowsUpdate)
+ Acrobat 8.2.4 Pro + Office 2003( + SP3)
Adobe Web 解説 URL(英語) v9.1
＜ 戻る ＞