質問編集履歴

2

質問に対する追記

2018/06/28 06:19

投稿

miupuu
miupuu

スコア6

test CHANGED
File without changes
test CHANGED
@@ -35,3 +35,79 @@
35
35
  **「ページレイアウト」**は、Acrobatのメニューから「ファイル」→「文書のプロパティ」の「開き方」タブにあります。
36
36
 
37
37
  [http://pdf-file.nnn2.com/?p=783](http://pdf-file.nnn2.com/?p=783)で紹介されているようなAcrobatアプリケーションの環境設定ではなく、PDFファイルのプロパティの方を取得したいです。
38
+
39
+
40
+
41
+ ### 取得できているその他のプロパティ
42
+
43
+ 質問を受けまして、現在取得できているプロパティのコードを掲載しました。
44
+
45
+
46
+
47
+ ```Excel lang-VBA
48
+
49
+ Private Sub GetProperty()
50
+
51
+ Dim objAcroAVDoc As New Acrobat.AcroAVDoc
52
+
53
+ Dim objAcroPDDoc As Acrobat.AcroPDDoc
54
+
55
+ Dim objAcroPDPage As Acrobat.AcroPDPage
56
+
57
+ Dim objAcroPoint As Acrobat.AcroPoint
58
+
59
+ Dim objAcroApp As New Acrobat.AcroApp
60
+
61
+ Dim lRet As Long
62
+
63
+ Dim fp As String
64
+
65
+ Dim i As Long
66
+
67
+ Dim bRet As Boolean
68
+
69
+
70
+
71
+ fp = "xxx.pdf"
72
+
73
+ lRet = objAcroAVDoc.Open(fp, "")
74
+
75
+
76
+
77
+ Set objAcroPDDoc = objAcroAVDoc.GetPDDoc
78
+
79
+ Set objAcroPDPage = objAcroPDDoc.AcquirePage(0)
80
+
81
+ Set objAcroPoint = objAcroPDPage.GetSize
82
+
83
+
84
+
85
+ Cells(1,1) = objAcroPDDoc.GetNumPages '★1
86
+
87
+ Cells(1,2) = objAcroPoint.x '★2
88
+
89
+ Cells(1,3) = objAcroPoint.y '★3
90
+
91
+ Cells(1,4) = objAcroApp.GetPreferenceEx(52) '★4
92
+
93
+
94
+
95
+ lRet = objAcroAVDoc.Close(1)
96
+
97
+
98
+
99
+ Set objAcroPoint = Nothing
100
+
101
+ Set objAcroPDPage = Nothing
102
+
103
+ Set objAcroPDDoc = Nothing
104
+
105
+ Set objAcroAVDoc = Nothing
106
+
107
+
108
+
109
+ End Sub
110
+
111
+ ```
112
+
113
+ 上記コードは、掲載用に少しアレンジしています。★1~3のページ数やページサイズは取得できていますが、★4が取れていない箇所で、このコードではAcrobatアプリケーションの環境設定を取得してしまいますので、ファイルに設定されている値を取得できていません。

1

補足の追加

2018/06/28 06:19

投稿

miupuu
miupuu

スコア6

test CHANGED
File without changes
test CHANGED
@@ -22,6 +22,12 @@
22
22
 
23
23
 
24
24
 
25
+ 使い道ですが、数百あるPDFファイルを読み込み、設定されているページレイアウトに応じて印刷方法(印刷の向きやNアップ)を制御するための判定材料として使いたいと考えています。
26
+
27
+
28
+
29
+
30
+
25
31
  ### 補足情報
26
32
 
27
33