VBAでPDF文書のプロパティ(ページレイアウト)を取得したい

Question

前提・実現したいこと

VBA(Excel)でPDF文書のプロパティを取得したいです。いくつかはうまく取得できているのですが、**「ページレイアウト」**の取得方法が分からず困っています。ページレイアウトには、以下のいずれかの値が設定されているので、これらを数値等で取得したいです。

• デフォルト
• 単一ページ
• 連続ページ
• 見開きページ
• 連続見開きページ
• 見開きページ(表紙)
• 連続見開きページ(表紙)

使い道ですが、数百あるPDFファイルを読み込み、設定されているページレイアウトに応じて印刷方法(印刷の向きやNアップ)を制御するための判定材料として使いたいと考えています。

補足情報

**「ページレイアウト」**は、Acrobatのメニューから「ファイル」→「文書のプロパティ」の「開き方」タブにあります。
http://pdf-file.nnn2.com/?p=783で紹介されているようなAcrobatアプリケーションの環境設定ではなく、PDFファイルのプロパティの方を取得したいです。

取得できているその他のプロパティ

質問を受けまして、現在取得できているプロパティのコードを掲載しました。

Private Sub GetProperty()
Dim objAcroAVDoc As New Acrobat.AcroAVDoc
Dim objAcroPDDoc As Acrobat.AcroPDDoc
Dim objAcroPDPage As Acrobat.AcroPDPage
Dim objAcroPoint As Acrobat.AcroPoint
Dim objAcroApp  As New Acrobat.AcroApp
Dim lRet As Long
Dim fp As String
Dim i As Long
Dim bRet As Boolean

fp = "xxx.pdf"
lRet = objAcroAVDoc.Open(fp, "")

Set objAcroPDDoc = objAcroAVDoc.GetPDDoc
Set objAcroPDPage = objAcroPDDoc.AcquirePage(0)
Set objAcroPoint = objAcroPDPage.GetSize
        
Cells(1,1) = objAcroPDDoc.GetNumPages '★１
Cells(1,2) = objAcroPoint.x '★２
Cells(1,3) = objAcroPoint.y '★３
Cells(1,4) = objAcroApp.GetPreferenceEx(52) '★４

lRet = objAcroAVDoc.Close(1)
 
Set objAcroPoint = Nothing
Set objAcroPDPage = Nothing
Set objAcroPDDoc = Nothing
Set objAcroAVDoc = Nothing

End Sub

上記コードは、掲載用に少しアレンジしています。★１～３のページ数やページサイズは取得できていますが、★４が取れていない箇所で、このコードではAcrobatアプリケーションの環境設定を取得してしまいますので、ファイルに設定されている値を取得できていません。

Comments

[ttyp03]

「いくつかはうまく取得できている」コードを提示ください。

[miupuu]

質問の中に「取得できているその他のプロパティ」を追記しました。そちらを参考にしていただけますでしょうか。よろしくお願いいたします。

Answer 1

環境がなくて試せていないのですが、PDDocにGetLayoutModeというメソッドがありそうです。
https://help.adobe.com/en_US/acrobat/acrobat_dc_sdk/2015/HTMLHelp/Acro12_MasterBook/API_References_SectionPage/API_References/Acrobat_API_Reference/PD_Layer/PDDoc.html#PDDocGetLayoutMode11207()
これの戻り値で判断できないでしょうか。
ただこのリンク先のマニュアルが参照設定で使えるActiveXのものとは少し違うようなので見当違いでしたらスルーしてください。

ちなみにAVDocからPDDocを得ているようですが、PDDocから直接オープンできるので次のような作りの方が適しているかと思います。

Private Sub GetProperty()
	Dim objAcroPDDoc As New Acrobat.AcroPDDoc
	Dim objAcroPDPage As Acrobat.AcroPDPage
	Dim objAcroPoint As Acrobat.AcroPoint
	Dim objAcroApp  As New Acrobat.AcroApp
	Dim lRet As Long
	Dim fp As String
	Dim i As Long
	Dim bRet As Boolean

	fp = "xxx.pdf"
	lRet = objAcroPDDoc.Open(fp, "")

	Set objAcroPDPage = objAcroPDDoc.AcquirePage(0)
	Set objAcroPoint = objAcroPDPage.GetSize

	Cells(1,1) = objAcroPDDoc.GetNumPages '★１
	Cells(1,2) = objAcroPoint.x '★２
	Cells(1,3) = objAcroPoint.y '★３
	Cells(1,4) = objAcroPDDoc.GetLayoutMode '★４

	lRet = objAcroPDDoc.Close

	Set objAcroPoint = Nothing
	Set objAcroPDPage = Nothing
	Set objAcroPDDoc = Nothing

End Sub

Comments

[miupuu]

GetLayoutMode の箇所で、「メソッドまたはデータメンバが見つかりません。」というエラーが出て、ロジックが通りませんでした ><
ちなみに、オープン方法を変更して記載していただいたので、一部以下のように修正して動作させました。
変更前：lRet = objAcroPDDoc.Open(fp, "")
変更後：lRet = objAcroPDDoc.Open(fp)

[ttyp03]

ダメでしたか。すみません。
GetLayoutMode 関数はどうやって使えばいいんでしょうかね。
また時間があったら調べておきます。
Openの指摘はありがとうございます。
やはり動く環境がないと見逃しますね。

[miupuu]

ありがとうございます。引き続きよろしくお願いいたします。