「サイトマップ（旧）」への210件のフィードバック

1. 管理人さん
   またまた早々のご回答ありがとうございます。
   提供情報が足りないかったようですみません。
   おっしゃる通り1)の「ココ」で貼っていただいたサンプルを参考にしました。
   2)の方法は実施してみましたが、結果は同じでした。
   Acrobat9proでも確認してみました(「Acrobat JavaScriptを使用」はチェック済)。4)の表示は双方とも出ますが、JavaScriptの方だけ［許可」をクリックしても表示されませんでした。
   こちらの環境がどこかに問題があるのかもしれませんね。

   vbaで[Webリンクを開く]を設定するにはCPDFが必要でしょうか？

2. M さんへ。

   以下のコメントを再度御覧ください。
   https://pdf-file.nnn2.com/&cpage=7#comment-2124

   詳細は、しばしお待ち下さい。

3. M さんへ。
   検証中ですが。

   this.getURL('https://pdf-file.nnn2.com’);
   上記を以下に変更して確認をお願いします。
   app.launchURL("https://pdf-file.nnn2.com", true);

   ReaderとAcrobat共にテスト願います。
   詳細は後で。

4. 管理人さん

   色々と情報ありがとうございます。
   app.launchURL、AcrobatReaderとAcrobat9Proで動作確認できました。
   AcrobatDCProは今確認できないので、明日改めて報告します。

5. Mさんへ。
   以下はメーカーの公開情報では無く、当サイトのテスト結果です。
   環境：Acrobat XI Pro + Acrobat Reader DC + Win10 64bit Pro

   ▽現象
   Acrobat本体動作でしおりにAcrobat JavaScriptの
   this.getURL('http://～');
   を入れても処理しない。実行エラーになっていると思われる。
   Acrobat再起動、OS再起動、環境設定の変更等をしたが解決しない。
   Acrobat Readerでは問題なく動作する。

   ▽対処方法
   this.getURL('http://～');
   を、
   app.launchURL("http://～", true);
   に変更する。

   ▽this.getURLが動作しない件について。Acrobatのみ。
   マニュアルを見ると「ブラウザに表示する」機能とは書かれていない。
   但し、Acrobat Reader上では問題なく動作する。環境設定の「信頼性管理マネージャー」でthis.getURLを制御も出来る。
   this.getURLは使う環境によって、動作が変わるのかもしれない。バッグっぽいが、詳細は不明。

   ▽this.getURLとapp.launchURLの違い
   メーカーの公開マニュアルだけでは判断できない。
   Web表示はapp.launchURLを使用するが正解？と言う程度。

   ▽Web表示（URLリンク）へのセキュリティ警告
   PDFからURLリンク等でWebサイトを開くときにはデフォルトで以下のセキュリティ警告が表示される。

   

   [環境設定]->[信頼性管理マネージャー]->[設定の変更]で以下に変更すれば、上記画面を表示せずに無条件にWeb表示する事もできる。

   

   但し、これはセキュリティ上の問題となる。（みたい
   Acrobat ReaderもAdobe Acrobat共に同じ。

   ▽その他のメモ
   1) Acrobat JavaScriptがAcrobat Readerで動作して、Adobe Acrobatで動作しない事象は今回が初めて。
   2) Acrobat ReaderとAdobe Acrobatの環境設定の内容は別々の場所（=レジストリ）に保存される。よって、Acrobat ReaderとAdobe Acrobatの環境設定は相互に影響はしない。
   注意：全ての設定を確認したわけでは無く、過去の経験から。

   以上。
   Acrobat JavaScriptに精通している訳では無いので、結果はWebマニュアルとテストから出しました。
   ご検証ください。

6. 管理人さん
   丁寧な説明ありがとうございました。
   細かい検証まですみません。
   コピペに頼る初心者で、どこがダメなのかわからず頭を悩ませていました。
   拙い質問に親切なご回答本当にありがとうございました。
   このサイトを今後も参考にさせていただきますので、宜しくお願いします。

7. Excel vbaでpdfを操作して、印刷をしたいのですが、その際、通常のプリンターを切り替えて印刷がしたいです。
   しかし、以下のコードを動かしても、
   「DocuCentre-V 7080 (1) 」からしか印刷がされず困っており、ご連絡をいたしました。
   ご教示いただけますと幸いです。

   以下、各バージョンとなります。
   Adobe Acrobat standard 2017
   Excel 2013
   Windows8.1

8. 先ほどコメントをさせていただいたものです。
   ・・・でコードを挟んだのですが
   コードをお送りすることができなくて困っております。

   ご教示いただけますと幸いです。
   ご迷惑をおかけし、申し訳ありません。

   もし可能であれば
   メールアドレスにご連絡をいただけますと大変助かります。

9. Sub PDF_print()
Dim objAcroApp As New Acrobat.AcroApp
Dim objAcroAVDoc As New Acrobat.AcroAVDoc
Dim lRet As Long
Dim base As String
Dim yobi As String
Dim myPrinter As String
Dim ActivePrinter As String
myPrinter = "DocuCentre-V 7080 (1) on Ne13:"
Application.ActivePrinter = "（両面短辺２UPホチ）"
base = Sheets("入力シート").Cells(6, 2).Value
yobi = base & Sheets("入力シート").Cells(6, 2).Value
lRet = objAcroApp.Show
lRet = objAcroAVDoc.Open(yobi)
lRet = objAcroAVDoc.PrintPages(0, 0, 2, 0, 0)
lRet = objAcroAVDoc.Close(1)
lRet = objAcroApp.Hide
lRet = objAcroApp.Exit
Set objAcroAVDoc = Nothing
Set objAcroApp = Nothing
Application.ActivePrinter = myPrinter
End Sub

10. アオちゃん　さんへ。

    ソースコードでやりたいことが分かりました。
    コチラにPDFを指定して印刷をするサンプルが在ります。プリンターも指定できます。本来の公開サイトは既に閉鎖していますが、シンプルな操作になっています。ダウンロードしてご利用下さい。

    それと、情報のやり取りは公開を前提にしているのでメールでのやり取りはしません。
    参考になれば幸いです。

    ▼2021年6月29日 8:08 追加
    Excel（=Excel VBA）にPDFを印刷する機能は無いです。
    よって、Excel VBAからAcrobat（=Acrobat OLE）に対して印刷をする命令を出します。
    ＞lRet = objAcroAVDoc.PrintPages(0, 0, 2, 0, 0)
    上記がそれです。
    また、これはOS上のデフォルトのプリンターにしか印刷できません。
    ＞Application.ActivePrinter = "（両面短辺２UPホチ）"
    上記はExcel内の印刷機能を使って印刷する時のプリンターを指定する物で、Acrobat（=Acrobat OLE）はこの設定を見ません。
    アオちゃんさんはこの点を勘違いしてるように見受けられます。

11. 管理人さんへ

    こんにちは。
    シカオと申します。
    いつもこちらのサイトを参考にさせていただいております。

    現在、PDFの1ページ単位のカラー情報を取得する方法を模索しておりますが、なかなかいい方法が見つけられずにいます。
    バイナリデータまで解析すれば可能なのでしょうが、わたくしの知識不足で難しい為、出来れば参照せずに解決したいです。。。
    VBA以外の方法も選択肢に入れて調査しています。

    何かいい方法があったら教えて頂けないでしょうか。
    よろしくお願いいたします。

12. シカオ さん
    はじめまして。

    以下のURLに「たいよ」さんとのコメントのやり取りが在ります。
    https://pdf-file.nnn2.com/?p=213&cpage=1#comment-2111
    参考になるでしょうか。
    ハズレの場合はまたコメントを下さい。

13. こんばんは。

    教えていただきたいことがあります。

    以下のコードを使って
    pdfを印刷しているのですが、
    15ページあるpdfが2ページまでしか印刷されません。

    objAcroAVDoc.PrintPages(0, 0, 2, 0, 0)

    第2引数を変更すればいいとは思うのですが、
    繰り返し構文で複数のファイルを
    印刷にかけようとしているため、
    数字を決めて固定することは難しいです。

    何か良い解決策はないでしょうか。
    教えていただけますと幸いです。

14. あおちゃん　さん
    はじめまして。

    「AcroExch.AVDoc： PrintPages メソッド」にコチラ「AcroExch.PDDoc： GetNumPages メソッド」のPDFのページ数を追加したサンプルが以下です。

    001 Private Sub CommandButton18_Click()
002
003 Const OutF = "I:\TEST\AAA.PDF"
004
005 Dim objAcroApp As New Acrobat.AcroApp
006 Dim objAcroAVDoc As New Acrobat.AcroAVDoc
007 Dim objAcroPDDoc As Acrobat.AcroPDDoc
008 Dim lPageCount As Long
009 Dim lRet As Long
010
011 'Acrobatアプリケーションを起動する。
012 lRet = objAcroApp.Show
013 'PDFファイルを開いて表示する。
014 lRet = objAcroAVDoc.Open(OutF, "")
015
016 'PDDocを取得する
017 Set objAcroPDDoc = objAcroAVDoc.GetPDDoc
018 'ページ数を取得する
019 lPageCount = objAcroPDDoc.GetNumPages()
020
021 'PDFファイルの頁を指定して印刷する。
022 lRet = objAcroAVDoc.PrintPages(0, lPageCount - 1, 2, 0, 0)
023
024 'PDFファイルを閉じます。
025 lRet = objAcroAVDoc.Close(1)
026
027 'Acrobatアプリケーションを終了する。
028 lRet = objAcroApp.Hide
029 lRet = objAcroApp.Exit
030
031 'オブジェクトを強制解放する
032 Set objAcroAVDoc = Nothing
033 Set objAcroPDDoc = Nothing
034 Set objAcroApp = Nothing
035
036 End Sub


    行 019 で印刷するPDFの全ページ数を取得しています。
    行 022 で「-　1」しているのはページ番号の開始が１ではなく、ゼロの為です。
    上記で解決できるでしょうか。

15. 管理人様

    ありがとうございます。
    調べてもなかなか出てこなくて
    困っていたところ
    助けていただいて本当に助かります。

    これでやってみようと思います！

    また教えていただけると幸いです！

16. 管理人さん

    PrintPdf関数について質問です。

    以下のサイト（＊）でAdobeReaderでの印刷方法について
    記載されていますが、
    Acrobat Standard 2017で印刷する場合には、
    どのようにコードを記載する必要があるのかを
    御教示いただければ幸いです。

    【＊】
    http://pdf-file.nnn2.com/?p=752
    （もしくは
    http://web.archive.org/web/20150513101343/http://www.f3.dion.ne.jp/~element/msaccess/AcTipsAdobeReader.html#PrintPdf　）

17. あおちゃん　さんへ。

    Acrobat Readerだけを起動する様にこの関数は作られています。
    Acrobatは起動できません。

    コチラとコチラを参考にして、作ってみてはどうですか？

18. 管理人様
    現在、ExcelVBAのコードで、下記の処理のマクロを作成したいのですが、方法がなかなか見つからず困っております。
    ---やりたい事
    Acrobat Pro DCをインストールした際に、Excelのリボンに増えるAcrobatタブのPDF作成→ページ指定して作成を実行
    ---

    なぜ上記の方法と同じ処理をしたいのかといいますと、
    エクセル内に設置したリンク（シート間を移動するリンクです）を保持したままPDFの作成を行いたいからです。

    管理人様は上記の方法を何かご存じでしょうか？
    もしご存じでしたら教えていただけますと幸いです。

19. 774 さん　はじめまして。

    質問は「Acrobat PDFMaker」のCOM（OLE）によるVBA操作と思われます。
    調べたところ、コレに関する情報はセキュリティに関連する部分が有るという事でメーカー側（Adobe社）が非公開扱いにしてる様です。それらしき表現の公式文書も見かけました。実際にいくつかの部分をネット検索しても、ほぼ無いに等しい状態です。
    但し、日本語で丁寧な解説をしているサイトを１つ見つけました。サイト管理者に問い合わせたところ、「10年前の記事で試行錯誤での内容」との事で、何かしらの技術資料をもとに書かれた内容では無いとのことです。よってコレ以上の質問は無理と思われます。海外のサイトも検索しましたが、現状ではココのサイトの内容が一番詳しいと見受けられます。
    この部分（PDFMaker、API）は以前から気になっていた部分なので、調査は続けたいと思っています。どこかに「転がってないか」と。
    現状で返答できる内容は以上です。
    （願：なんとか、技術文書を手に入れたい！）

    ▼追加
    ・無料のメーカーDeveloperサイトでも情報は無いです。

20. 管理人様
    調べてくださりありがとうございます！
    頂いたサイトを参考に自分でももう少し調べてみます！

21. Adobeが公開している、JavaScriptの公式リファレンスに載っている複数階層のBOOKMARKの情報をコンソールに出力するサンプルを、VBA化してくださった方がいらっしゃいまして。

    そのVBAのコードではしおりのテキストと移動先ページの情報は取り出せるのですが、複数階層のレベル情報の取り出しまでは考慮されていません。

    公式のサンプルはしおりのテキストの先頭に「+-」という文字列を付け加えて、コンソール内に疑似的なツリー状態を再現してます。

    VBAでも複数階層のレベルの情報も取り出したいのですが、そのVBAコードをいじってみたものの、知識がないので、レベル情報を取り出すコードを書けませんでした。

    本来なら作成者の方にお聞きするべきところなんですが、理由は不明なのですが、問い合わせたもののお返事がいただけませんでした。

    困り果てて、失礼ながら管理人さんにご相談させていただきました。
    よろしければ、ご教示いただければ幸いです。

    よろしくお願いします。

    公開されているコードは下記です。
    直リンクはまずいかもと思いまして、先頭のhを外しております。

    ttps://www.ka-net.org/blog/?p=13440

22. 管理人さん、初めまして!
    ご挨拶のところをコピーし忘れて、挨拶もせずいきなりお願いだけ話し出す、失礼な行為を働いてしまいました。
    申し訳ありませんでした!

23. ototoさん　はじめまして。

    ご指摘のサイトのVBAコードにしおりの階層を追加したモノが以下です。変数「lLevNo」にしおりの階層が入っています。

    001 Option Explicit
002
003 '参照設定：Acrobat（Adobe Acrobat 10.0 Type Library）
004
005 Private lLevNo As Long
006
007 Public Sub Sample()
008 Dim objAcroApp As New Acrobat.AcroApp
009 Dim objAcroAVDoc As New Acrobat.AcroAVDoc
010 Dim objAVPageView As Acrobat.AcroAVPageView
011 Dim jso As Object
012 Dim bkm As Object
013 Const PdfFilePath = "I:\ABC.pdf"
014
015 If objAcroAVDoc.Open(PdfFilePath, "") Then
016 lLevNo = 0
017
018 ' objAcroApp.Show 'アプリケーション表示
019 Set objAVPageView = objAcroAVDoc.GetAVPageView
020 Set jso = objAcroAVDoc.GetPDDoc.GetJSObject
021 Set bkm = CallByName(jso, "bookmarkRoot", VbGet)
022 Call DumpBookmark(bkm, objAVPageView)
023
024 objAcroAVDoc.Close 1
025 objAcroApp.Exit
026 objAcroApp.Hide
027 End If
028
029 Set jso = Nothing
030 Set bkm = Nothing
031 Set objAcroAVDoc = Nothing
032 Set objAVPageView = Nothing
033 Set objAcroApp = Nothing
034
035 Debug.Print "End"
036 Call TerminateAcrobat
037 End Sub
038
039 ' 「しおり＋ページ番号＋階層番号」の情報を出力
040 Private Sub DumpBookmark( _
041 ByVal bkm As Object, _
042 ByVal objAVPageView As Acrobat.AcroAVPageView)
043 On Error Resume Next
044 Dim cld As Variant
045 Dim cld2 As Variant
046 cld = CallByName(bkm, "children", VbGet)
047 On Error GoTo 0
048 If IsEmpty(cld) = False Then
049 lLevNo = lLevNo + 1
050 For Each cld2 In cld
051 CallByName cld2, "execute", VbMethod 'しおり選択
052 Debug.Print "(" & lLevNo & ") 名前：" & _
053 CallByName(cld2, "name", VbGet) & _
054 vbTab & "ページ：" & objAVPageView.GetPageNum + 1
055 Call DumpBookmark(cld2, objAVPageView)
056 Next
057 lLevNo = lLevNo - 1
058 End If
059 End Sub
060
061 ' Acrobatのプロセスを強制終了
062 ' ※メモリ上から消す
063 Private Sub TerminateAcrobat()
064 Dim items As Object
065 Dim item As Object
066 Set items = CreateObject("WbemScripting.SWbemLocator") _
067 .ConnectServer.ExecQuery("Select * From Win32_Process " & _
068 "Where Name = 'Acrobat.exe'")
069 If items.Count > 0 Then
070 For Each item In items
071 item.Terminate
072 Next
073 End If
074 End Sub
075
076 ' ★テスト結果
077 ' (1) 名前：Test-1 ページ：1
078 ' (2) 名前：Test-2 ページ：1
079 ' (3) 名前：Test-3 ページ：1
080 ' (3) 名前：Test-4 Web表示 ページ：1
081 ' (4) 名前：Test-4-1 ページ：1
082 ' (1) 名前：表紙 ページ：1
083 ' (1) 名前：本FAQについて ページ：2
084 ' (1) 名前：Acrobat ページ：3
    但し、上記はTerminateAcrobatの実行を忘れたり、エラーで処理が中断したりすると大変なことが起こります。

    次が「本当はコチラを使って欲しい」バージョンです。
    問題になっているプロセスがメモリ上に残るのを解消しました。VBAのCallByName関数がAcrobatの何らかのオブジェクトを開放しない状態になっていると予測しています。ならば、CallByName関数を使わなければイイと考えました。事前にコチラの参照設定の追加が必要です。

    001 Option Explicit
002
003 '参照設定：Acrobat（Adobe Acrobat 10.0 Type Library）
004 '参照設定：AFormAut 1.0 Type Library
005
006 Sub sample_GetBookmark2()
007
008 Dim start As Double: start = Timer
009 Debug.Print "sample_GetBookmark2 " & Time
010
011 Dim sFilePathIn As String
012 Dim bRet As Boolean
013 Dim sReturn As String
014
015 Dim objAcroApp As New Acrobat.AcroApp
016 Dim objAcroAVDoc As New Acrobat.AcroAVDoc
017 Dim objAcroPDDoc As New Acrobat.AcroPDDoc
018 Dim objAFormApp As New AFORMAUTLib.AFormApp
019 Dim objAFormFields As New AFORMAUTLib.Fields
020
021 '前回、処理が中断した場合の安全対策を実行する
022 objAcroApp.CloseAllDocs
023 objAcroApp.Hide '稀に表示されるので隠す
024
025 'PDFファイルを開く
026 sFilePathIn = "I:\ABC.pdf"
027 bRet = objAcroAVDoc.Open(sFilePathIn, "")
028 Set objAcroPDDoc = objAcroAVDoc.GetPDDoc
029 Set objAFormFields = objAFormApp.Fields
030
031 Const sAcrobatJavaScript As String = _
032 "function DumpBookmark(bkm, nLevel)" & _
033 "{" & _
034 " bkm.execute();" & _
035 " var s = nLevel + '|' + (this.pageNum+1) + '|';" & _
036 " outL += s + bkm.name + '||' ;" & _
037 " if (bkm.children != null)" & _
038 " for (var i = 0; i < bkm.children.length; i++)" & _
039 " DumpBookmark(bkm.children[i], nLevel+1);" & _
040 "}" & _
041 "var outL='';" & _
042 "DumpBookmark(this.bookmarkRoot, 0);" & _
043 "event.value=outL;"
044
045 'Acrobat JavaScript の実行
046 sReturn = objAFormFields.ExecuteThisJavascript(sAcrobatJavaScript)
047 ' Debug.Print "sReturn = " & sReturn
048
049 Dim sWk1() As String
050 Dim i1 As Long
051 '実行結果を編集
052 sWk1 = Split(sReturn, "||")
053 For i1 = 0 To UBound(sWk1) - 1
054 Debug.Print (i1 + 1) & "-" & sWk1(i1)
055 Next i1
056
057 '変更しないで閉じる
058 bRet = objAcroAVDoc.Close(False)
059
060 'Acrobatアプリケーションの終了
061 objAcroApp.Hide
062 objAcroApp.Exit
063
064 'オブジェクトの開放
065 Set objAcroPDDoc = Nothing
066 Set objAcroAVDoc = Nothing
067 Set objAFormApp = Nothing
068 Set objAFormFields = Nothing
069 Set objAcroApp = Nothing
070
071 Debug.Print "処理時間 = " & Timer - start
072 End Sub
073
074 ' ★テスト結果
075 '
076 ' sample_GetBookmark2 11:21:39
077 ' 1-0|1|Root
078 ' 2-1|1|Test-1
079 ' 3-2|1|Test-2
080 ' 4-3|1|Test-3
081 ' 5-1|1|表紙
082 ' 6-1|2|本FAQについて
083 ' 7-1|3|Acrobat
084 ' 8-2|378|All Platform
085 ' 9-3|378|Plug-in API
086 '
087 ' 349-2|273|Acrobat ReaderでPlug-in
088 ' 処理時間 = 1.70703125


    メモリ上にプロセスが残ると後々でトラブルが出る事が多々有ります。次回にうまく起動しない、処理結果が変だ、変な画面が表示される、等の原因を特定できない事が起こる可能性が有ります。
    できれば、後者のロジックをお勧めしたいです。
    なお、処理速度は後者が数倍は高速です。

    後者はAcrobat JavaScript部分が「何これ？」ですが、処理の流れは一方通行でシンプルです。

    ゆっくりと、ご検証、ご検討下さい。

    ▼2021/11/03 8:58 追加
    「2階層以上の飛び」＆「連続の同一階層」も含めてのテスト検証をお願いします。

    ▼2021/11/03 10:11 追加
    しおりに「ページ移動」以外の動作指定が出来ます。稀に見ることがあります。例えばWebサイトの表示とか。この場合は前者、後者共に人間の手作業が入ってしまいます。よって、動作時は人の監視が必要かもしれません。余談ですが。

24. 管理人さん、お礼と確認が大変遅くなりまして、申し訳ありませんでした!

    試させていただき、おすすめいただいたコードの高速さに感激しております。
    PDFに付けたしおりを後から修正したいけど、紙をスキャンして作成したPDFへのしおり点けや編集作業は本当に面倒で、常日頃、困り果てておりました。

    おかげさまで、作業効率が格段に上がります。
    本当に、ありがとうございました!

25. ototo さんへ。
    参考になったみたいで嬉しいです。

    なお、今回の作業で数年前から問題になっていた不可解なエラーの（再現の）特定とその対策を発見しました。偶然にも。その内容は今回の「しおりの抽出処理」でも関係する部分です。ある特定のタイミングで特定の処理を実行すると必ずエラーが発生します。
    現在、その詳細をまとめている最中です。一週間ほどで公開する予定です。お手数ですが一週間後に、またコチラに起こし下さい。

    ▼2021/11/07　追加
    以下を見て、VBAの追加をお願いします。
    AFormAut特有のVBA実行エラー

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。