Excel

PDFのしおり数を取得するVBAマクロ

VBA Acrobat しおり数」といったキーワード検索でのアクセスがありました。
VBAからPDFファイルに含まれるしおりの数を取得する方法を探している方だろうと思います。

Acrobat JavaScriptでしおりの情報を取得する場合、DocオブジェクトのbookmarkRootプロパティ(Bookmarkオブジェクト)を使うことになります。

VBAから扱う場合も同様で、GetJSObjectメソッド経由で大元のBookmarkオブジェクト(bookmarkRoot)を取得すると、childrenプロパティから各Bookmarkオブジェクトの操作をすることができます。

具体的なコードは下記の通りで、コードを実行すると、しおりの数と各しおりが何ページ目にあるかをDebug.Printで出力します。

Option Explicit

Public Sub Sample()
  Dim app As Object 'AcroApp
  Dim avdoc As Object 'AcroAVDoc
  Dim avpv As Object 'AcroAVPageView
  Dim jso As Object
  Dim br As Object
  Dim cld As Variant
  Dim i As Long
  Const PdfFilePath = "C:\Test\Test001.pdf"
  
  Set app = CreateObject("AcroExch.App")
  Set avdoc = CreateObject("AcroExch.AVDoc")
  If avdoc.Open(PdfFilePath, "") = True Then
    app.Show 'アプリケーション表示
    Set avpv = avdoc.GetAVPageView
    Set jso = avdoc.GetPDDoc.GetJSObject
    Set br = CallByName(jso, "bookmarkRoot", VbGet)
    cld = CallByName(br, "children", VbGet)
    Debug.Print "しおりの数:" & UBound(cld) + 1
    For i = LBound(cld) To UBound(cld)
      CallByName cld(i), "execute", VbMethod 'しおり選択
      Debug.Print "名前:" & CallByName(cld(i), "name", VbGet) & vbTab & _
                  "ページ:" & avpv.GetPageNum + 1
    Next
    avdoc.Close 1
    app.Hide: app.Exit
  End If
  TerminateAcrobat 'プロセスが残った場合強制終了
End Sub

Private Sub TerminateAcrobat()
'Acrobatのプロセス強制終了
  Dim items As Object
  Dim item As Object
  
  Set items = CreateObject("WbemScripting.SWbemLocator") _
            .ConnectServer.ExecQuery("Select * From Win32_Process Where Name = 'Acrobat.exe'")
  If items.Count > 0 Then
    For Each item In items
      item.Terminate
    Next
  End If
End Sub

通常、アプリケーション(AcroApp)をExitすればプロセスも消えてくれるはずなのですが、上記コードを試したときは何故かプロセスが残り続けてしまったので、仕方なく強制終了する処理を入れることにしました。

2021/1/6 追記:
上記コードを一部修正し、PDFの複数階層のしおり情報を取得するVBAマクロを書いてみました。

Officeファイルから作成者などのプロパティを取得するVBScript前のページ

2016年8月の人気記事次のページ

関連記事

  1. Office関連

    Office 2007のサポートが2017年10月10日に終了します。

    2007年1月にパッケージ版が発売されてから早10年、長らく活躍してき…

  2. Office アドイン

    YO OFFICE(Yeoman)を使ってOffice アドインのひな型を作成する方法

    Webアプリのひな型を一発で作ってくれる便利ツール「Yeoman」には…

  3. Office関連

    [Win32 API]PowerPointマクロにショートカットキーを割り当てる。

    数日前、“PowerPointだとマクロにショートカットキーを割り当て…

  4. アイコン一覧

    Office 365アイコン(imageMso)一覧(B)

    Office 365のデスクトップ版Officeアプリケーション(Wo…

  5. Office関連

    RSSの日付を変換するVBAマクロ

    RSSから取得した日付(「Wed, 20 Dec 2017 00:02…

  6. Excel

    オデッセイ コミュニケーションズ主催のExcel VBA入門セミナーに参加しました。

    今月19日に開催されたオデッセイ コミュニケーションズさん主催の「Ex…

コメント

  • コメント (1)

  • トラックバックは利用できません。

    • OHYAMA
    • 2018年 3月 10日

    きぬあさ さん、 はじめまして。
    PDFのしおり数の取得の件でお願いがあります。
    PDF内の全てのしおり数(階層にかかわらず全て)と、そのしおりが何ページ目にあるかを
    取得する方法を教えていただけませんでしょうか。
    どうかよろしくお願いいたします。

Time limit is exhausted. Please reload CAPTCHA.

Translate

Chinese (Simplified)Chinese (Traditional)EnglishFrenchGermanJapaneseKoreanRussianSpanish

最近の記事

アーカイブ

PAGE TOP