TOP > AcroExch.PDBookmark > *
説明
PDBookmarkオブジェクトが扱っている「しおり」の文字列を変更します。事前に検索(GetByTitle)しておく必要があります。
形式
VARIANT_BOOL SetTitle(BSTR szNewTitle);
引数
- 第１引数(BSTR szNewTitle) ：
変更した文字列。
戻り値
- True(-1) ： 成功。
- False(0) ： 失敗。又はPDFドキュメントのセキュリティ上で変更できないか、アプリケーション(Acrobat Reader)がサポートしていない。
動作するバージョン
| 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.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_AcroPDBookmark_SetTitle()
002
003 Dim objAcroApp As New Acrobat.AcroApp
004 Dim objAcroAVDoc As New Acrobat.AcroAVDoc
005 Dim objAcroPDDoc As New Acrobat.AcroPDDoc
006 Dim objAcroPDBookMark As Acrobat.AcroPDBookmark
007 Dim lRet As Long
008
009 'PDFファイルを開いて表示する
010 lRet = objAcroAVDoc.Open("E:\Test01.pdf", "")
011 'PDDocオブジェクトを取得する
012 Set objAcroPDDoc = objAcroAVDoc.GetPDDoc
013 'objAcroPDBookMarkオブジェクトの作成（インスタンス化）
014 Set objAcroPDBookMark = _
015 CreateObject("AcroExch.PDBookmark")
016 '該当する「しおり」を検索する
017 lRet = objAcroPDBookMark.GetByTitle(objAcroPDDoc, _
018 "HogeHoge")
019 If lRet = True Then
020 'しおりが見つかった。
021 'このしおりの文字列を変更する
022 lRet = objAcroPDBookMark.SetTitle( _
023 "NEW BookMark TITLE ")
024 End If
025
026 'PDFファイルを保存して閉じます。
027 'lRet = objAcroAVDoc.Close(0)
028 'PDFファイルを保存しないで閉じます。
029 lRet = objAcroAVDoc.Close(1)
030
031 'Acrobatアプリケーションを終了する。
032 lRet = objAcroApp.Hide
033 lRet = objAcroApp.Exit
034
035 'オブジェクトを強制開放する
036 Set objAcroPDBookMark = Nothing
037 Set objAcroPDDoc = Nothing
038 Set objAcroAVDoc = Nothing
039 Set objAcroApp = Nothing
040
041 End Sub
補足
- 現在有り「しおり」を変更するです。新規追加はこのメソッドでは出来ません。
- このPDBookmarkオブジェクトではしおりの新規追加の機能は有りません。
Adobe Web 解説
OLE Automation / AcroExch.PDBookmark / SetTitle (公式サイト・英語)
動作確認環境
- WindowsXP Pro(+ SP3) +
Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate
＜ 戻る ＞