「サイトマップ」への209件のフィードバック

1. 管理人さん　こんにちは
   >1)PDFファイルをテキストとしてVBAで読み込む。
   衝撃的でした。この回答。
   また、さらに色々と調べて頂いていたのですね。
   感謝してます。
   当方でカラー（jpg）でスキャニングしたデータをpdf変換し、拡張子を.txtとしてエディタで見てみますと確かに『RGB』の文字があります。
   ↓この部分
   << /Type /XObject /Subtype /Image /Name /Im1 /Width 1650 /Height 2334
   /BitsPerComponent 8 /Filter /DCTDecode /ColorSpace /DeviceRGB /Length 9 0 R >>
   よって、モノクロ・カラーの識別は、テキストとしてVBAで読み込み、『RGB』という文字があるか単純に走査していけばよいのではないでしょうか。大量処理したときには、ちょっとレスポンスが心配ですが…。（安易な素人考えかな？）
   >もし英語に堪能ならば
   全然だめです。一般教養すら乏しいです。
   でも、dreams come trueなら貪欲に調べてみます。
   貴重な時間を使って頂き、本当にありがとうございました。

2. ＞『RGB』という文字があるか単純に走査・・
   いや、それでも多分ダメでしょう。
   グレー指定でスキャンし、PDFファイル化したものにも「/DeviceRGB」は存在します。
   こちらでのテスト環境
   スキャナ：Mustek 600CP ※<-化石。中古で1027円。
   OCRソフト：読んde!!ココ v12.0
   読んde!!ココで読み込んだ画像をPDF化しています。
   もしグレー指定でスキャンした時に「/DeviceRGB」がPDFファイルに存在しなければ、ぜひスキャン部分の詳細な情報をお願いします。非常に興味があります。

3. 管理人さん
   お疲れ様です。
   こちらで使っているスキャナーは、CANON DR-7080Cです。
   グレー指定でスキャンしてみました。
   1.カラー原稿をtiff（G4）、グレー諧調でスキャン
   2.Acrobat7でPDF化
   3.PDFファイルの拡張子を.txtに変更
   4.テキストデータ中には、『DeviceGray』という文字があります。
   こちらは、『DeviceRGB』ではないです。
   << /Type /XObject /Subtype /Image /Name /Im1 /Width 3507 /Height 2480
   /BitsPerComponent 8 /Filter /DCTDecode /ColorSpace /DeviceGray /Length 9 0 R >>
   よって単純にカラー･モノクロの識別ではなくグレーも識別できるということですかね。
   ちなみに当方としては、グレーもカラー扱いでカウントしたかったので、『DeviceGray』か『DeviceRGB』だったらカラー枚数のカウントアップとするロジックでよいような気がします。でも、機種によってはまだほかにもなにかあるのかな…。

4. ン～～～ム。（汗
   確かにISOによるPDF仕様書1.7(PDFリファレンス)に「/DeviceGray 」が見つかりました。tiffファイルにそれにつながる情報が含まれているのかもしれません。
   こちらでは無理と思いましたが、icevainさんの手順＆環境ではグレー／カラーの判別は出来るかもしれません。ただ、これがシステム化されるものならば、環境やicevainさんが言っている機種による十分なテストが必要と感じます。
   PDF仕様書1.7を見ると以下の記述があります。
   Primary color components for the standard native device color spaces (Gray for DeviceGray; Red, Green, and Blue for DeviceRGB; Cyan, Magenta, Yellow, and Black for DeviceCMYK;).
   つまり、DeviceGray, DeviceRGB, DeviceCMYK の判断が出来るみたいです。それ以外にCalGray,CalGray,ICCBasedもあるみたいですが、多分問題無いかな・・。
   Acrobat7はPDF仕様書1.6に該当するので一概に言えませんが、DeviceGray, DeviceRGB, DeviceCMYKの記述はあるので大丈夫だと、思います。
   PDF仕様書・関連は先週から勉強を始めたばかりなので難しくて判らない事だらけなんです。
   今日はこの後、用事で出かけないといけないので明日にでもtiffファイルからのPDF化してみます。PDF仕様書(※超苦手な英語)も調べてみます。

5. 遅くなり、既に解決済みとは思いますが調査結果を。（汗
   以下の辞書「<<・・・>>」ラインの中に入っていました。
   ※Color：スキャナーでカラー指定
   ※Gray：スキャナーでグレー指定
   ※LineOut：スキャナーでテキスト指定
   <</Subtype/Image/Length ・・・・/BitsPerComponent
   Acrobat 7.1.2 Color : /DeviceRGB
   Acrobat 7.1.2 Gray : /DeviceGray
   Acrobat 7.1.2 Text : /DeviceGray
   <</Subtype/Image/Length ・・・・/BitsPerComponent
   Acrobat 8.1.5 Color : /DeviceRGB
   Acrobat 8.1.5 Gray : /DeviceGray
   Acrobat 8.1.5 Text : /DeviceGray
   <</BitsPerComponent
   Acrobat 9.1.1 Color : /DeviceRGB
   Acrobat 9.1.1 Gray : /DeviceGray
   Acrobat 9.1.1 Text : /DeviceGray
   結果的に上位バージョンでも辞書内容が異なりますが「/DeviceRGB」、「/DeviceGray」は変わりませんから、バージョンアップ時でも現在は問題ないでしょう。なおスキャナーでのテキスト読み込み指定時は全て「/DeviceGray」になります。
   まあ、いい結果と言えるのでしょうか。

6. 管理人様
   こんにちは
   貴重な調査結果を公表していただきありがとうございます。
   カラー・モノクロの枚数カウントについては掘り下げればまだ疑問とするところが多々ありますが、管理人さんのご教授によりかなりスッキリしてきまった。
   今私は、セキュリティ付PDFのダイレクトプリントについてあれこれ検証していますが、PCの環境やacrobat、readerそしてバージョンなどの違いなどで頭を悩ましています。しかし、この問題も管理人さんのこのサイトに何かヒントがあると思って拝見させて頂いております。
   貴重なお時間を費やしていただき有難うございました。感謝感謝です。

7. icevainさん。
   多少はお役に立てたのでしょうか。
   ＞・・セキュリティ付PDFのダイレクトプリント・・
   オオ、なんかヤバそうな感じも受けますが。
   「セキュリティ」なんてモノは破られる為にあるものであって、あまり意味をなさないような気もします。
   ※なんて、書いてもいいのかな？
   武運を祈っています。

8. 管理人さんに絶賛です。
   >※なんて、書いてもいいのかな？
   書いていいんですよ。
   >「セキュリティ」なんてモノは破られる為にあるものであって、あまり意味をなさないような気もします。
   そのとおりなんですよ。
   巷にはフリーの解除ツールがありますからね。
   それに電子データまたは電子化データにした時点で不正コピーや改ざんに了解しましたよって思わなきゃいけないのに、悪あがきする連中がおりまして…、困ったものです。ブツブツ…。
   これからもよろしくお願い致します。応援してますよ。

9. 管理人様
   はじめまして
   VBAでEXCELファイルを複数、Adobe PDF(Acrobat7.0) プリンターへ出力（印刷）をするのですがこのとき、PDF化されるのですが、Acrobat がEXCELファイル分起動されるので、どうしたらVBAで閉じれるかがわからず困っています。
   何か方法があれば、よろしくお願い致します。

10. Hiroさん。初めまして。
    Excel(VBA)の複数起動＋Acroabtの複数起動、ですか。
    Acroabtが複数起動されるのは納得出来ます。それぞれが違うプロセスとしてメモリ上にExcelのVBAから起動されたからです。
    それが閉じれない？　というのは変ですね。
    各ExcelのVBAでは使用したExcelファイルを閉じて、そして
    　　'Acrobatアプリケーションを終了する。
    　　lRet = objAcroApp.Hide
    　　lRet = objAcroApp.Exit
    をしているでしょうか。
    タスクマネージョーを起動して、ExcelとAcrobatの２つのプロセスがメモリ上でどのような動きをしているか観察しながらデバッグをしてみてください。

11. 管理人様
    ご返事ありがとうございます。
    ファイルが１０程度なら何も起こらないず、３００ファイルぐらいになると起こるのでメモリ等の状態を見ながら、調べていきます。
    また、ご相談するかも知れませんのでよろしくお願い致します。
    ありがとうございました。

12. ３００ファイルを扱うとは・・；。
    Excelも想定外でプロセス管理がうまく出来ていないのかもしれない。
    という事はOSがプロセス管理が出来ていない、という事にもつながる。
    Excelの起動時に何らかの制限を設ける方がいいかもしれないですね。

13. 管理人様、こんにちは

    こちらのURLがメインであると今気がつきました、申し訳ありません。
    旧ページの私のコメントは削除をお願いいたします。

    改めてこちらで

    ＞それをShowすると指定PDFが画面表示され、タスクバーにも現れる。
    ＞これはビック・ニュースです！
    ＞
    ＞
    ＞で、問題点ですが・・；。
    ＞
    ＞＞・・ダイアログ操作が行えなくなる場合・・
    ＞
    ＞破損したPDFファイルでOPENエラーになった場合の事でしょうか。
    ＞イマイチ、問題点が理解出来ません。

    当方のでの問題は、
    互換性依存等のダイアログ等が表示される状態にて、
    ユーザーが「このダイアログを表示しない」
    のチェックを入れていないと、IACが応答不能
    (おそらく、ウィンドウ表示をしない状態でダイアログ待ちになっている)
    です。

14. 管理人様
    はじめまして
    Acrobat9proを使用しています。
    pddocオブジェクトのSetInfoの質問です。
    タイトルの設定時は元のタイトルが上書きされますが、
    キーワードの設定時は「;」の区切りが入り、追記となってしまいます。
    キーワードの元のデータを削除する方法をご存知でしょうか？

15. Tomoさん。初めまして。
    管理人のnoriです。
    (移行中で御不便をお掛けします。)

    Setinfoの件ですが。
    最新のAdobe Acrobat 9.1 SDKを見ました。
    以下のURLで見れます。

    http://livedocs.adobe.com/acrobat_sdk/9.1/Acrobat9_1_HTMLHelp/wwhelp/wwhimpl/js/html/wwhelp.htm?href=IAC_DevApp_OLE_Support.100.25.html#1516611&accessible=true

    Setinfoが有り、Getinfoも有る。ならば「Deleteinfo」があってもおかしくないのですが、有りません。
    困りました、ね・・；。

    一つの案ですがキーワードを指定して、値は空「""」にするのはダメでしょうか。キーワードは残りますが、値は消す事が出来ます。
    lRet = objAcrobatPDDoc.SetInfo("PS", "")

16. mrkexeさん。
    お手数を掛けてスミマセン。
    （移行作業中メッセージの挿入が１日遅れました）

    ＞show と openを逆にすると、問題は発生しないようですが。
    ＞この順だと　open時にPDF側がダイアログを表示(バージョン互換とかの)すると、
    ＞ウィンドウが表示されていないため、ダイアログ操作が行えなくなる場合があるようです。

    上記の意味が理解できました。
    それでAcrobat 9用のPDF(PDF仕様1.8)をAcrobat Pro 8.1.7でOpenしてテストしてみました。
    「互換性問題が有ります」のダイアログが『画面』表示されました。
    Acrobat 7.0の環境が今は直ぐに作れないので、画面表示されないのは確認できませんでした。(Acrobat 6環境はありますが、OLEの記述が少し違うのでテストに少し時間がかかる・・；。イヤ、眠くて：汗）

    それで問題のダイアログの表示で「このダイアログを表示しない」のチェックを『事前』にオン状態にしておけば良いと思うのですが。

    [HKEY_CURRENT_USER\Software\Adobe\Adobe Acrobat\8.0\AVAlert\cCheckbox]
    "iDontShowWarn"=dword:00000000
    "idocNewerVersionWarning"=dword:00000001　　＜－この部分を追加する

    上記のレジストリの「idocNewerVersionWarning」行全体を追加するとチェック・オン状態になります。但しAcrobatプロセスが起動する前に行う必要があります。理由は他のコメントにも書きましたが、Acrobatは起動時にレジストリの内容を読み取り、終了後に書き込みを行っているみたいだからです。起動中にレジストリは見ていないテスト結果が出ています。
    なお、上記レジストリを設定するとVBAの「objAcroAVDoc.IsValid = 0」にならなく正常？に処理は続行されました。
    これが良いかの判断はmrkexeさんの詳細な目的が判らないので出来ません。

    また上記のレジストリを見るとバージョン番号「8.0」部分があります。Acrobatバージョンのインストール環境により、この部分の数値は変わると思われます。（Acrobat 8でしかテストしていないので）

    これで解決のヒントになったでしょうか。

17. 管理人様、ご回答ありがとうございます。

    「このダイアログを表示しない」の表示の件、
    ご回答いただいた、レジストリで対応する方法で検討してみようと思います。

    >これが良いかの判断はmrkexeさんの詳細な目的が判らないので出来ません。

    当方作成中のアプリケーションは、AcrobatCoreAPIを用いて作成した
    AcrobatAPIをAcrobatメニューに追加し。

    他アプリケーションからIACを用いて
    １．Acrobat起動
    ２．PDFドキュメントを開く
    ３．上記APIをMenuItemExecuteで実行
    ４．Acrobatを終了

    を自動化すると言うものです。

    上記「２．」でIACの応答が戻らないのが問題でしたので、
    ご回答いただいたレジストリの設定値を用いて。
    処理前後に、

    ０．レジストリ設定値を読み込み、チェックを付ける
    ５．「０．」で、チェック無しのユーザーであれば、チェックを戻す

    を追加することで対処できそうです。

    ご回答ありがとうございました。

18. to管理人様

    レジストリ値を操作し、「互換性の問題があります」の
    ダイアログを抑制する件、当方でも検証を行いましたので、
    ご参考に結果を報告させていただきます。

    １．Acrobat 7.0/8.0
    　ご指摘の方法にて、ダイアログを抑制可能であることが確認できました。
    　また、この方法は、adobe社より配布されている
    　http://www.adobe.com/jp/support/kb/ds/511/511338/511338_UserGuide.pdf
    　「511338_UserGuide.pdf」の48pにて言及されていることも確認できました。

    ２．Acrobat 6.0
    　この方法では、ダイアログを抑制できないようです。

    　そもそも、Acrobat 6.0では「互換情報ダイアログ」にて
    　「ウィンドウを表示しない」のチェックをユーザーがオンにしても
    　この値は保持されないようで、一度Acrobatを終了すると、
    　次回もダイアログが表示されるようです。

    上記の動作から判断し、

    Acrobat 7以前では、通常通りshow → openにてAcrobatを起動し、
    ユーザーにバージョン情報ダイアログを操作させる。

    Acrobat 8以降では、open → showにてAcrobatを起動し、
    レジストリ値の編集しダイアログを抑制する。

    といった処理で対応しようと思います。

    以上です、ありがとうございました。

19. 管理人様
    返答ありがとうございます。
    ＞一つの案ですがキーワードを指定して、値は空「”"」にするのはダメでしょうか。
    ＞キーワードは残りますが、値は消す事が出来ます。
    ＞lRet = objAcrobatPDDoc.SetInfo(”PS”, “”)
    私の説明不足ですみません。
    「文書のプロパティ－概要タブ」のタイトルや作成者やキーワードなど既存する項目は、
    SetInfoでその名前を指定すれば、値を変更できると思います。

    「文書のプロパティ－概要タブ」のタイトルの値であれば、
    lRet = objAcrobatPDDoc.SetInfo(”Title”, “”)と指定する事で、
    元々の値を消す事ができますが、
    「文書のプロパティ－概要タブ」のキーワードの値については、
    lRet = objAcrobatPDDoc.SetInfo(”Keywords”, “”)
    と指定した場合、元々キーワードの値に例えば「あいう」が入っていたら
    「; あいう」というように区切り文字「;」が入り追記となってしまい、
    「あいう」を消す事ができないのです。
    この元々の値を消す方法で困っています。
    （ほんとDeleteInfoがあればいいのに…）

20. mrkexeさん。
    解決出来そうみたいで良かったです。

    しかし、かなり複雑な処理を行っているようで当サイト以上の情報を持っている様に感じました。
    それで書き忘れた事があるので、そのテストもお願いします。(汗
    Adobe Readerも同じ動きをするかのテストです。
    処理にもよりですが、見るレジストリがたま～に違うときがあります。
    不可思議な現象としか言えません。

    あっ、それとテスト結果の情報提供、有難うございました。
    何らかの形で公開したいと思っています。

21. to:管理人様

    ＞Adobe Readerも同じ動きをするかのテストです。

    当方Readerは 9.0の環境しか準備できなかったため
    Reader 9.0にて確認を行いましたところ。
    (Readerには、AdobeCoreAPI プラグインを組み込めないので、
    当方作成のアプリ対象外なのです、すいません・・・)

    ReaderでもAcrobatと同様にダイアログを抑止できることがわかりました。

    なお、Readerではキー値は以下の通りとなるようです。

    HKEY_CURRENT_USER¥Software¥Adobe¥Acrobat Reader¥9.0¥AVAlert¥cCheckbox¥
    dword = idocNewerVersionWarning

    ＞処理にもよりですが、見るレジストリがたま～に違うときがあります。
    ＞不可思議な現象としか言えません。

    Adobeの動作を見る限りですが、上記レジストリキー値
    HKEY_CURRENT_USER¥Software¥Adobe¥Acrobat Reader¥9.0¥AVAlert¥cCheckbox¥
    自体が、ユーザー確認ダイアログにてチェックを押し、
    そのAcrobatを終了するまで作成されないようです。

    つまり、idocNewerVersionWarningを書き込む場合、
    キーが存在しない場合は、それも書き込まないといけないようです。
    (Adobe社的にOKなのかは微妙なところかも知れませんが・・・)

    ＞しかし、かなり複雑な処理を行っているようで当サイト以上の情報を持っている様に感じました。
    このサイトをはじめ、多くのサイト、情報などに助けられここまで作成できました。
    特にIACに関しては、このサイトの情報がもっとも参考になりました、
    お忙しいところかと思いますが、サイト移行作業がんばってください。

    以上です。

22. 1点追記です

    PDFデータ先頭のPDFバージョンを示す
    「%PDF-1.5」当の記述を、現在存在しないバージョンにすることにより、
    最新版のPDFでも「バージョン互換ダイアログ」を表示することができるようです。

    上記検証は、この方法で(無理やり)行いました。

23. mrkexeさんへ。

    ＞「%PDF-1.5」当の記述・・

    PDFのテキスト処理ですね。
    PDFの仕様書まで駆使しているとは恐れ入りました。

    ＞・・(無理やり)・・

    そこ言葉、好きです。（笑

24. tomoさん。
    遅くなり、又、的違いをしてしまい申し訳有りません。
    質問には「タイトル」と書かれていたのに、「メタ情報」関連と勘違いしていました。

    lRet = objAcrobatPDDoc.SetInfo("Keywords","AAA")
    こっちの方ですね。

    旧サイトのhttp://pdf-file.jugem.jp/?eid=148のサンプルで
    「PS」－＞「Keywords」に変更してテストしてみました。

    テスト環境は以下の３つ。
    1) Windows XP Pro + SP3 + MicrosofUpdate +
    　Microsoft Excel 2003 (+ SP3) +
    Adobe Acrobat 9 Pro Extended (v9.1.3)
    2) Windows XP Pro + SP3 + MicrosofUpdate +
    　Microsoft Excel 2003 (+ SP3) +
    Adobe Acrobat 9 Pro Extended (v9.2.0)
    3) Windows XP Pro + SP3 + MicrosofUpdate +
    　Microsoft Excel 2003 (+ SP3) +
    Adobe Acrobat 8 Pro (v8.1.7)

    テスト結果ですが、どれもキーワードの設定時に「;」の区切り文字は入りませんでした。
    lRet = objAcrobatPDDoc.SetInfo("Title","")
    と実行すると文書プロパティのキーワード部分は空になります。

    見せれる範囲で結構ですのでtomoさんのスクリプト(プログラムコード)を最初から見せて頂けないでしょうか。

25. 管理人様

    こちらの環境は
    Windows XP Pro + SP2 + MicrosofUpdate +
    Microsoft Excel 2003 (+ SP2) +
    Adobe Acrobat 9 Pro (v9.1.3)

    です。
    ここに記載するプログラムコードは、管理人様のサイトにある状態を
    そのまま記載しておきました。やはり区切り文字が入って追記状態と
    なりました。

    Private Const PDSaveFull = &H1
    Sub Macro1()
    Dim objAcroPDDoc As New Acrobat.AcroPDDoc

    lRet = objAcroPDDoc.Open("ファイルパス")
    c = objAcroPDDoc.SetInfo("Keywords", "")

    'c = objAcroPDDoc.Save(&H1 + &H4 + &H20, a)
    c = objAcroPDDoc.Save(PDSaveFull, a)

    lRet = objAcroPDDoc.Close
    Set objAcroPDDoc = Nothing
    End Sub

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