Excel

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関連

    テンプレートから簡単に新規文書を作成できるようにするWordテンプレート

    Wordで自作のテンプレートを利用して文書を作成するとき、2007以降…

  2. Office アドイン

    Office 2016で進化したOffice アドイン

    今日OfficeDevを眺めていて気が付いたのが「OfficeJS S…

  3. アイコン一覧

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

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

  4. Office関連

    Office 2010 開発者用リファレンスをHTML形式で”快適に”閲覧す…

    前回の記事で7-Zipを使ってHXS形式のOffice製品のヘルプを解…

  5. Excel

    フォルダ内にあるExcelファイルをカウントするVBScript

    「フォルダ内 Excel 数える VBScript」といったキーワード…

コメント

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

Time limit is exhausted. Please reload CAPTCHA.

※本ページはプロモーションが含まれています。

Translate

最近の記事

アーカイブ

PAGE TOP