TOP > AcroExch.AVDoc > *
説明
AVDocオブジェクトで開いているPDFドキュメントのタイトルを取得します。
形式
BSTR GetTitle();
戻り値
- 戻り値はPDFドキュメントのタイトル。PDFドキュメントがOpenされてない時はNullがセットされる。
引数
- 無し。
動作するバージョン
| 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
補足
- 特に無し。
Adobe Web 解説
OLE Automation / AcroExch.AVDoc / GetTitle (公式サイト・英語)
動作確認環境
- WindowsXP Pro(+ SP2) +
Acrobat 7.0.9 Pro + Office 2003 + MicrosoftUpdate
＜ 戻る ＞