Office関連

Acrobatを利用してPDFファイルのページ数を取得するVBAマクロ

前回の記事ではPowerShell+iTextSharp、前々回の記事ではVBA+Adobe ReaderでPDFファイルのページ数を取得するコードを紹介しましたが、今回はAcrobatを利用してPDFファイルのページ数を取得するコードを紹介します。

Option Explicit

Public Sub Sample()
  Dim num As Long
  
  num = GetPDFPages("C:\Test\001.pdf")
  If num = 0& Then
    Debug.Print "Err."
  Else
    Debug.Print "ページ数:" & num
  End If
End Sub

Public Function GetPDFPages(ByVal PdfPath As String) As Long
  Dim ret As Long
  
  ret = 0& '初期化
  With CreateObject("AcroExch.AVDoc")
    If .Open(PdfPath, vbNullString) Then
      ret = CLng(.GetPDDoc.GetNumPages)
      .Close 1&
    End If
  End With
  GetPDFPages = ret
End Function

Acrobatが必要になりますが、非常に簡単なコードでページ数を取得することができます。
しかもPDF編集アプリケーションの本家本元であるAcrobatを利用しているため、信頼性も高く安心感があります。
個人的には、PDFファイル関連の処理をマクロで行う場合は、Acrobatを利用することをお薦めします。

■ 関連Webページ:

・Adobe Readerを利用してPDFファイルのページ数を取得するVBAマクロ
//www.ka-net.org/blog/?p=2314
・[PowerShell]iTextSharpを使ってPDFファイルのページ数を取得する
//www.ka-net.org/blog/?p=2317

[PowerShell]iTextSharpを使ってPDFファイルのページ数を取得する前のページ

各スライドに配置されたオートシェイプからテキストを取得するPowerPointマクロ次のページ

関連記事

  1. Office アドイン

    [Office用アプリ]Mashup Awards 9にOffice 用アプリで応募できる!?

    日本最大級のWebアプリケーション開発コンテスト「Mashup Awa…

  2. Office関連

    手軽に参照設定するためのVBAアドイン

    thom氏のブログで面白い記事がありました。・VBA 参照…

  3. Office関連

    VBAで○○を禁止したい!・・・と思う前に。

    Office系Q&Aサイトを見ているとたまに出てくるのがこの質問。…

  4. Office関連

    文書内の単語を単語ごとにカウントするWordマクロ

    Wordsコレクションを使って文書内の単語を列挙し、各単語がそれぞれい…

  5. Office関連

    [PowerPoint]図やスライドをSVGとして保存する機能が追加されました。

    ※ 下記情報はInsider版のOfficeを元にしています。バージョ…

コメント

  1. この記事へのコメントはありません。

Time limit is exhausted. Please reload CAPTCHA.

Translate

Chinese (Simplified)Chinese (Traditional)EnglishFrenchGermanJapaneseKoreanRussianSpanish

最近の記事

アーカイブ

PAGE TOP