TOP > AcroExch.AVDoc > GetTitle [...]
説明
AVDocオブジェクトで開いているPDFドキュメントのタイトルを取得する。
形式
BSTR GetTitle();
戻り値
- 戻り値はPDFドキュメントのタイトル。
PDFドキュメントがOpenされてない時はNullがセットされる。
引数
- 無し。
動作するバージョン
Version | Adobe Acrobat | 備考 |
---|---|---|
4 | - | Acrobat 4.0 ※Windows 98SE + Excel 2000 |
5 | - | Acrobat 5.0.5 |
6 | - | Acrobat 6.0.3 Pro |
7 | OK | Acrobat 7.0.9 Pro (Acrobat 7.1.4 Proは未確認) |
8 | - | 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
- F8キーでステップ実行しながら動作確認する。
- 事前に参照設定をする。
001 Sub AcroExch_AVDoc_GetTitle()
002 Dim objAcroApp As New Acrobat.AcroApp
003 Dim objAcroAVDoc As New Acrobat.AcroAVDoc
004 Dim lRet As Long
005 Dim strTitle As String
006
007 'Acrobatアプリケーションを起動する。
008 lRet = objAcroApp.Show
009 'PDFファイルを開いて表示する。
010 lRet = objAcroAVDoc.Open("E:\Test01.pdf", "")
011 'Test01.pdfのタイトルを取得する。
012 strTitle = objAcroAVDoc.GetTitle
013 MsgBox "(" & strTitle & ")"
014
015 'PDFファイルを閉じます。
016 lRet = objAcroAVDoc.Close(1)
017
018 'Acrobatアプリケーションを終了する。
019 lRet = objAcroApp.Hide
020 lRet = objAcroApp.Exit
021
022 'オブジェクトを強制解放する
023 Set objAcroAVDoc = Nothing
024 Set objAcroApp = Nothing
025 End Sub
Highlight:プログラミング言語のソースコードを構文で色分け (GUI編)
補足
- 特に無し。
動作確認環境
- WindowsXP Pro(+ SP2) +
Acrobat 7.0.9 Pro + Office 2003 + MicrosoftUpdate
< 戻る >
ブラウザ画面の文字サイズを変更するショートカットキー
|