TOP > AcroExch.PDBookmark > *
説明
「しおり」の存在をチェックするメソッドです。
形式
VARIANT_BOOL IsValid();
引数
- 無し。
戻り値
- True(-1) ： しおりは存在する。
- False(0) ： しおりは存在しない。
動作するバージョン
| 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_IsValid()
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 If objAcroPDBookMark.IsValid = True Then
027 'しおりが存在する
028 Debug.Print "削除されてない"
029 Else
030 'しおりが存在しない
031 Debug.Print "削除された"
032 End If
033
034 'PDFファイルを保存して閉じます。
035 'lRet = objAcroAVDoc.Close(0)
036 'PDFファイルを保存しないで閉じます。
037 lRet = objAcroAVDoc.Close(1)
038
039 'Acrobatアプリケーションを終了する。
040 lRet = objAcroApp.Hide
041 lRet = objAcroApp.Exit
042
043 'オブジェクトを強制開放する
044 Set objAcroPDBookMark = Nothing
045 Set objAcroPDDoc = Nothing
046 Set objAcroAVDoc = Nothing
047 Set objAcroApp = Nothing
048
049 End Sub
補足
- 特に無し。
Adobe Web 解説
OLE Automation / AcroExch.PDBookmark / IsValid (公式サイト・英語)
動作確認環境
- WindowsXP Pro(+ SP3) +
Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate
＜ 戻る ＞