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 用アプリはソースコードが丸見え!?

    サーバーサイドの処理はともかくとして、Officeドキュメントにアクセ…

  2. Office関連

    [Excel]XLOOKUP関数でより簡単に値を検索できるようになりました!

    下記記事の通り、2019年8月末にVLOOKUP関数やHLOOKUP関…

  3. Office関連

    [Office]WordやPowerPointで画像の画質が悪くなった時の対処方法

    WordやPowerPointで画像を貼りつけたときやファイルを保存し…

  4. Office関連

    Acrobat XIを操作してテキスト認識操作を行うVBAマクロ

    マクロからAcrobatを操作する場合「PDFファイル上のフィールドの…

  5. Office関連

    Computer Vision APIを使って画像から文字列を取得するVBAマクロ

    前々回の記事で、Fiddlerを使ってMicrosoft Cognit…

  6. Office関連

    [Office VBA]ADOでSharePointリストに接続する方法

    先日Twitterで @blacklist_ryu さんが下記ツイート…

コメント

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

Time limit is exhausted. Please reload CAPTCHA.

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

Translate

最近の記事

アーカイブ

PAGE TOP