AcroExch.PDBookmark: Destroy メソッド

TOP > AcroExch.PDBookmark > Destroy      [...]


説明

ロジック上で現在扱っている該当する「しおり」を削除します。

よって事前に検索(GetByTitle)しておく必要があります。

形式

VARIANT_BOOL Destroy();

引数

  1. 無し。

戻り値

  • -1 : 成功。
  • 0 : 失敗。

動作するバージョン

VersionAdobe
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
8OKAcrobat 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

戻る


キーボード

ブラウザ画面の文字サイズを変更するショートカットキー

  1. [ CTRL ] + [ + ]  :  文字を大きく

  2. [ CTRL ] + [ - ]  :  文字を小さく
Shortcut Keys

  1. [ CTRL ] + [ + ]  :  Up the font size

  2. [ CTRL ] + [ - ]  :  Down the font size

「AcroExch.PDBookmark: Destroy メソッド」への4件のフィードバック

  1. お世話になります。
    私の環境では上記のプログラムを実行すると
    『しおりが見つからなかった』
    と出てしまいます。
    ファイル名の部分と検索文字部分のみ変更し対応しているのですが
    上手く動きません。

    何か解決方法は御座いますでしょうか。
    宜しくお願い致します。

    adobe acrobat pro(32-bit)2023.001.20064
    Windows 10 Enterprise

  2. とぉ さん はじめまして。

    「ファイル名の部分と検索文字部分のみ変更」して、動作確認をしました。「見つかる」ケース、「見つからない」ケース共に正常に機能しました。
    しおりの文字列部分はコピー&ペーストでお試し下さい。しおりの部分は、全角、半角が分かりにくい場合が多いです(経験談)。半角と全角の空白は見た目では全く分かりません。

    Adobe Acrobat XI 11.0.23 (32bit)
    Windows 10 Pro 64bit
    Excel 2007 (32bit)

  3. 管理人様

    回答ありがとうございます。
    管理人様の返信により私の設定のどこかが
    違う事が予想できましたのでいろいろいじってみたいと思います。
    有難うございました。
    ちなみに検索文字『"*"』は可能でしょうか。
    宜しくお願い致します。

  4. とぉ さんへ。

    正規表現の事でしょうか?
    検索時のオプション等は全く無いので、正規表現は使えません。
    ただの文字列:アスタリスク「*」1文字の検索になります。

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

CAPTCHA



SAMURAI Plugin

コメントをする時は出来れば以下もお願いします。

  • OS名 バージョン
  • Acrobat バージョン
  • ツール(Excel等) バージョン
コメントにサンプルコードを入れる時はコードを全て全角文字列にしてください。コチラで半角に戻します。それでもエラーが回避できない時はコメント下さい。個別に対処します。



お仕事で当サイトを見ている方へ
考え込んだら、ご質問下さい。
一緒に解決策を考えましょう。

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください