TOP > AcroExch.PDBookmark > Destroy [...]
説明
ロジック上で現在扱っている該当する「しおり」を削除します。
よって事前に検索(GetByTitle)しておく必要があります。
形式
VARIANT_BOOL Destroy();
引数
- 無し。
戻り値
- -1 ： 成功。
- 0 ： 失敗。
動作するバージョン
| 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.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_Destroy()
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 Debug.Print "しおりが見つかった。"
021 'このしおりを削除する
022 lRet = objAcroPDBookMark.Destroy
023 Else
024 Debug.Print "しおりが見つからない。"
025 End If
026
027 'PDFファイルを保存して閉じます。
028 'lRet = objAcroAVDoc.Close(0)
029 'PDFファイルを保存しないで閉じます。
030 lRet = objAcroAVDoc.Close(1)
031 'Acrobatアプリケーションを終了する。
032 lRet = objAcroApp.Hide
033 lRet = objAcroApp.Exit
034 'オブジェクトを強制開放する
035 Set objAcroPDBookMark = Nothing
036 Set objAcroPDDoc = Nothing
037 Set objAcroAVDoc = Nothing
038 Set objAcroApp = Nothing
039
040 End Sub
Highlight：プログラミング言語のソースコードを構文で色分け (GUI編)
補足
- 事前に検索(GetByTitle)しておく必要があります。
動作確認環境
- WindowsXP Pro(+ SP3) +
Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate
＜ 戻る ＞
 ブラウザ画面の文字サイズを変更するショートカットキー
|