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

1. あや さんへ。

   以下を試して下さい。

   Dim j As Long

   Private Sub CommandButton1_Click()
   Dim lRet1 As Long
   Dim i As Long
   Dim TB(1, 2) As Variant

   TB(0, 0) = "C:\download.pdf"
   TB(0, 1) = 1
   TB(0, 2) = 2
   TB(1, 0) = "C:\download.pdf"
   TB(1, 1) = 5
   TB(1, 2) = 7

   Debug.Print Now()
   For i = 0 To 1
   lRet1 = funPDFPrintPage(TB(i, 0), TB(i, 1), TB(i, 2))
   For j = 0 To 200000
   DoEvents
   Next j

   Next i
   MsgBox "終了"
   End Sub

   Function funPDFPrintPage(filename As Variant, _
   lStart As Variant, _
   lEnd As Variant) As Boolean
   Dim lRet2 As Long

   '以下は無くてもいいみたい
   lRet2 = AcroPDF1.LoadFile(filename)
   '以下は必須命令
   AcroPDF1.src = filename

   For j = 0 To 200000
   DoEvents
   Next j

   AcroPDF1.printPages lStart, lEnd
   '★最初の頁に戻す　※ポインター頁？が存在するのか？
   AcroPDF1.gotoFirstPage

   ' Debug.Print lRet2
   End Function

   上記の「AcroPDF1.gotoFirstPage」がミソ？です。
   ひょっとしたらカレント頁なるポインター情報みたいなモノを持っていて
   それがジャマをするのではないかと、勝手に推測しました。

   Sleepを使わずに「Doevents」で十分にCPUをOSに与えます。
   それでもっと印刷へのスプールをOSにさせます。

   Windows 7 64ビット+Adobe Reader 10.0+プリンター、環境でテスト成功しました。
   仮想のWinXP+Reader 7.1.4+プリンター無し、ではそれらしく動きました。

   「 AcroPDF1.LoadFile(filename)」をコメント(無効)にしたテスト結果もお願いします。

2. 管理人さんの迅速な対応を頂いているのに、
   こちらの返信遅くてすみません。

   教えていただいたコードを実行したところ、
   「ファイルの最初に％PDF-がありません。」と出て
   ↓
   OK
   ↓
   「ファイルの最初に％PDF-がありません。」ともう一度出て
   ↓
   OK
   ↓
   実行時エラー　-2147417948（80010108」）
   Printpagesメソッドは失敗しました。Iacroaxdooshimオブジェクト
   ↓
   デバッグ
   ↓
   （Functionの中の）
   AcroPdf.PrintePages　istart,iend
   が黄色反転の状態です。

   ステップインで1行ずつ見ていくと、
   AcroPdf1.src=Filename
   のところで、「ファイルの最初に％PDF-がありません。」と出ています。

   「ファイルの最初に％PDF-がありません。」このエラーメッセージは
   どこかで見たのですが、そのときどう回避したのか思い出せていません。

   管理人さんに頂いたコードの理解と、
   上記のエラーメッセージの対処法を探っています。

   ひとまずの現状の報告とさせて頂きます。

   *インターネット使用パソコンとVBAを実行しているパソコンが別なため
   　手入力で対応しております。
   　見にくい書き方になってしまい、すみませんm(_ _)m

3. あや さんへ。

   TB(0, 0) = “C:¥download.pdf”

   TB(1, 0) = “C:¥download.pdf”

   上記のフルパス名が正しいかを再度確認して下さい。

   エラーメッセージの意味はコレ？かな
   http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1411035934
   http://nikkei.goo.ne.jp/help/pdf/adobe_7.html
   上記だとしたら一旦パソコンにPDFをダウンロード？してからの操作となるのか？

4. 管理人さんありがとうございます。

   TB(0, 0) = “C:¥download.pdf”
   TB(1, 0) = “C:¥download.pdf”
   は問題なしです。

   回答としてずれているかもしれませんが…
   download.pdfファイルをダブルクリックで普通に開くと
   エラーなく開きます。

   AcroPDF1.LoadFile "C:\download.pdf"
   でも、VBAのフォーム上でエラーなく開いています。

   Dounroad.pdfのファイルはインターネットからダウンロードしてきたもので、
   一度Cドライブに保存しています。

   PDF をブラウザに表示にチェックは入っています。

5. あや さんへ。

   download.pdf　PDFファイルを一度Adobe Reader等で開くとそのPDFファイルにビジー（使用中）状態になって、別アプリ等でオープン出来ないことがタマ～にあります。
   これはAcrobat又はReaderアプリ側の問題です。
   このような時は再度OSを再起動する必要があります。
   ※Adobe社はこの手の情報は公開しません

   ・・昼なのでご飯を食べに行きます。（中断

6. 頂いたコードは、こういう流れと理解しています。

   ファンクション呼び出し　---☆
   （C:\downroda.ｐｄｆ,１，２）

   　C:\Downroad.pdf を開く
   　２秒間ウィンドウズに制御を戻す

   AcroPDF1.printpages　1,2を送る
   　2秒間ウィンドウズに制御を戻す

   （c:\download.pdf,5,7) で☆から同じことをする

   ただ、
   「ファイルの最初に%PDF-がありません。」は
   ﾊﾟｿｺﾝの再起動をしても解消してくれません。

   ﾊﾞｰｼﾞｮﾝｱｯﾌﾟの検討も伝えましたが、
   ただいまｽﾙｰされてます。

   以下は横道にそれますので、ご返答頂かなくても結構です。
   ファンクションを　Iret1に入れるのと
   ACROPDF.loadfile(filename)をiret2に入れるのはなぜだろうと…
   VBAの知識はあまりないのですが、
   CALLで呼び出して使っていたのですが、
   それと同じことなのかな…

7. あや さんへ。

   ＞「ファイルの最初に%PDF-がありません。」は

   の件は実際のパソコン環境を見ないと、分からないかも・・。（汗
   PDFファイルを置く場所をDドライブにして頂けませんか。
   Cドライブは「JavaScript(JavaScriptAPI)における「Safe Path」についての注意事項」の領域で、本当はPDFを置くには適さないドライブです。
   解決するとは思いませんが、やってみて下さい。
   それとそのメッセージでネット検索して解決方法を探しだす努力もお願いします。

   ExcelのVBAは基本的にCall形式で構いません。
   但し、lRet(戻り値)を使える場合もあります。
   VBA開発環境でF2 keyを押下すると「オブジェクトブラウザ」画面が表示されます。

   

   上記の画面はVBA開発環境で使う変数、関数、命令等の情報を全部教えてくれます。
   AcroPDFLibをリストから見ると

   Function LoadFile(fileName As String) As Boolean
   AcroPDFLib.AcroPDF のメンバ
   method LoadFile

   Property src As String
   AcroPDFLib.AcroPDF のメンバ
   property src

   Sub printPages(from As Long, to As Long)
   AcroPDFLib.AcroPDF のメンバ
   method printPages

   の情報が見れます。
   LoadFile はFunction関数なので戻り値(Boolean)が見れます。CallでもOKです。
   src はProperty で Stringなので、文字列の値の設定、取得が出来ます。
   printPages はSubなのでCall形式で呼び出します。戻り値は無し。
   と見れます。
   命令で使い方が分からない時に便利な画面です。
   VBA命令をキー入力している時に表示されるオートコンプリート機能(自動補完機能)を注意して見ていれば、この画面を見なくても判断が出来ます、ヨ。

8. 管理人さん少々お久しぶりです。
   ご丁寧な指導有難うございました。

   結局、Readr Xにして対応しています。
   案の定希望はｽﾙｰされたので^^;
   唯一1台だけある自由なﾊﾟｿｺﾝで
   作業しています。

   会社では、こちらのPDFのﾎｰﾑﾍﾟｰｼﾞが
   ｾｷｭﾘﾃｨ面で見れないため
   Excelのほうの質問掲示板で
   質問していこうと思っていますが
   わからないことがあればまた寄させてもらいます。

   いろいろとありがとうございましたm(_ _)m

9. あや さんへ。

   ISO何たらカンタラ、で環境が厳しい会社なんですね。
   IPアドレスから、知っている会社だったりして。（汗

   お力に成れなくて残念です。

10. 情報が少ない中　大変参考に成りました。
    ありがとうございます。

11. AKIRA さん
    はじめまして
    少しでもご参考になれたら幸いです。

12. 管理人さん

    ExcelのVBAでPDFのプロパティの「その他のメタデータ」、
    「フォーマット」の内容を取得したいのですが可能でしょうか。

    管理人サイトを参考に以下としてみましたがNGでした。

    Dim objAcroPDDoc as New Acrobat.AcroPDDoc
    IRet = objAcroPDDoc.Open("ファイル名")
    strGetFormat = objAcroPDDoc.GetInfo("Format")

13. Aki さん
    はじめまして

    「フォーマット」とはプロパティ・「その他のメタデータ」の「dc:format」の事でしょうか。
    それならば、上記のスクリプトでは取得できません。
    更に当サイトで紹介しているOLEの機能でも取得は出来ません。
    但し逃げ手(裏ワザ)は有りますので以下に紹介します。

    PDFファイルの基本はテキストです。
    現在のPDFは一部にバイナリーが混在していますが、「dc:format」部分は今でもテキスト形式でPDF内部に存在します。
    試しにPDFをメモ帳以外のテキストエディタ(例：秀丸等)で開いて、文字列検索をして見てください。

    <dc:format>application/pdf</dc:format>

    みたいな形で存在することが判ります。

    VBAでこのPDFをファイルとして読み込みます。
    そして文字列として検索を行って、該当する文字列「<dc:format>」以降の文字列を取得すれば可能です。
    サンプル「関数：PDFのバージョンを取得する」を参考にして下さい。
    サンプルはテキストとして扱う前に、内部コードの関係で一旦バイナリーとして読み込み、それをコード変換してテキストとして扱っています。

    少しでもご参考になれば幸いです。

    　

    ＜2014/11/25 10:44 追加＞

    PDFファイル内によってはこの情報が複数存在する場合が有ります。
    原因としては最適化されてない場合みたいですが・・。
    最適化後にでも複数有る場合があります。（１つになる場合も有りますが）
    その場合は先に

    <x:xmpmeta xmlns:x="adobe:ns:meta/" x:xmptk="Adobe XMP Core

    の文字列を検索しておく必要が有りかもしれません。
    （注意：これだけでは不十分みたいで、別の条件も必要みたいです）

    OLEに最適化するメソッドが有るので、最適化後のPDFファイルの内容を読み込む事がベストかと思われます。

    逆に存在しない場合が見受けられます。
    その場合はデフォルト？の「application/pdf」になるとのではないかと、勝手に予測しています。

    上記はテストによる検証結果です。
    Adobe社によるSDK等の技術情報は見ていません。

14. 管理人さん
    返信遅くなり申し訳有りません。
    教えて頂いた手順でプロパティ・「その他のメタデータ」の「dc:format」の情報を得ることができました。
    有難う御座いました。

15. Aki さんへ
    出来ましたか・・・（汗

    実はその部分はかなり問題が有るように思えます。
    前の返答後にズ～～～ッと調査していたのですが、９割方の解決策を見つけました。
    それをコメントでお知らせするにはかなりのボリョームなので、サンプルを作成中です。
    何らかの形で１週間以内に公開しますので、その時にココのコメント見てください。
    公開URLを置いておきます。

    少しお待ち下さい。 m(_._)m

16. 管理人さん
    調査続けて下さっていたのですね。有難う御座います。
    サンプルコードの公開、お待ちしています。よろしくお願いします。

17. Aki さんへ

    以下にサンプルを公開しました。
    関数：PDFからメタデータ(XMP)を抽出する

    この後でもう少し説明を追加する予定です。
    サンプルコードの変更予定は無いので流用可能かと思います。
    サンプルExcelファイルのダウンロードも公開しました。
    メタデータのメーカ公開技術資料はあまりにも膨大なので、あまり見ていません。
    ９割は実データを見て、勘で作成しました。（汗
    テストしやすいようにデバッグ・ルーチンもフラグで制御できます。

    参考時は不要部分を削除し、良～～～くテストして下さい。

18. いつも大変参考にさせて頂いております。
    いきなりですが、罫線の情報(私が欲しいのは位置(座標))を取得する事はできるのでしょうか？

    例えば見積書のような罫線で区切られ、そのセルの中に文字があるといったようなPDFから文字を抜き出し、判定するというプログラムを作成していますが、罫線の情報さえ取得できれば幾分楽に作成できそうなんです。

    もしお分かりになられるようならお教えください。

19. のぶ さん
    はじめまして

    かなりハードルの高い質問です。
    ざっと考えただけでは返答出来るような情報は無いです。
    少し時間（２～３日ぐらい）をください。
    裏ワザ？も含めて調べてみます。

    ※罫線は確かAnnotオブジェクトの一つのはずです。このオブジェクトに関するOLE操作の多くは不可解なエラー（動作）が存在します。機能も情報も少ないです。Annotオブジェクトを検索してType=罫線が取得できたら、そのオブジェクトを座標オブジェクトRectに連携する・・・、(フリーズ)。　OLE経由でAcrobat JavaScriptを実行して情報を取得する方法は・・・、(フリーズ)。

    遅くても６日（金曜）の朝までには返答します。（予定
    あまり期待しないでください。

20. 管理人様
    ご返答ありがとうございます。

    ＞遅くても６日（金曜）の朝までには返答します。（予定
    現状として罫線の情報が無くても出来てはいるので、焦って頂くことはありません。

    お忙しい中お時間を頂戴するようなお願いをしてしまい申し訳ありません。。。

21. のぶさんへ
    最初に結論から。分からないです。 m(_._;)m
    管理人のスキルでは調査の限界部分です。
    当サイトのOLEでは予測通り無理が有ります。

    そこでOLE経由のAcrobat JavaScriptで情報取得(ExecuteThisJavascript)を調査しましたが、Acrobat JavaScriptはいまだ未知の分野なので時間が許さない限り答えは出ないでしょう。※少しずつは覚えてきたのですが。

    罫線という表現はAcrobatには無く、線(Line)になります。
    また楕円、四角も有りますが、今回は線(Line)で調査させて頂きました。

    お力になれなくて残念です。

    ---

    以下は管理人の作業メモです。
    管理人以外は見なくて結構です。

    

    何故かコンテナタグが「Artifact(アーティファクト)」となる。
    検索したキーワード「Acrobat コンテナタグ　Artifact」で出たのは以下だけ。
    ・PDF4: PDF 文書の Artifact タグによって装飾的な画像をタグ構造から削除する
    「Acrobat Artifact」で検索しても英語サイトしか出ない。
    「PDF 線　座標　取得」それらしき情報無し。
    やっぱ、この手の情報は日本語サイトには無い。

    「JavaScript™ for Acrobat® API Reference　バージョン 8.0」より
    TypeプロパティでLine判定有り。
    Rect配列有り。

    Type　注釈のタイプの一覧
    Text :テキスト注釈
    FreeText :テキストボックス
    Line :線
    Square :長方形
    Circle :楕円
    Polygon :多角形
    PolyLine :折れ線
    Hightlight : ハイライト
    Underline : 下線
    Squiggly : 波形の注釈マーク
    StrikeOut : 取り消し線
    Stamp :スタンプ注釈
    Ink :※鉛筆注釈 ?
    FileAttachment :ファイル添付注釈
    Sound :音声注釈

    調査した箇所が間違っているかもしれない（汗

22. 管理人様
    お時間割いて調査して頂き本当にありがとうございます。
    OLE経由でそのような事は無理っぽいんですね・・・

    いづれにせよ、本当にありがとうございました。

    == 以下作業メモを見てこちらで実施した内容 ==
    現段階で対象としているPDFを使用してTouchUpオブジェクトツールで罫線を選択
    ↓
    プロパティを表示
    ↓
    コンテナタグ等(全部？)がグレーアウト(Artifact等の文字すらなくグレー)
    「種類：」は｛パス｝と表記あり
    ↓
    対象PDFに「ページの抽出・注釈」を許可しない制限があるせいか？
    ↓
    Excel2010で保護していないPDFを作成
    ↓
    保存されたPDFファイルで同様にプロパティを見る
    ↓
    種類：パス
    コンテナタグ：段落
    構造タグ：スパン
    この際選んでいるのは「線」です

    という結果ですので、この辺りは出力するモノによって変わってしまう？かも？？

23. あっ・・・
    こちらの環境書いてありませんでした。

    Windows7
    Acrobat 9 Pro　になります。

24. のぶ さんへ

    １つの線を選択状態にする時は画面を拡大して行わないと複数の線等を選択してしまいます。
    その時のコンテナタブの内容は正確になりません。

    「手書きPDF入門」にも書いてありますが、線等はPDF内部で座標情報を持っています。
    きっと Acrobat JavaScript に答えが有るとは思っています。
    ん～～、800頁のマニュアルをじっくりと理解する時間が無い。（悲

25. はじめまして。最近PDFの仕事を始めたので大変参考になっています。
    指定フォルダ配下のPDFに作成者とタイトルを一括で設定するVBAもこちらのページを参照して作らせて頂き、非常に効率化が図れました。

    セキュリティーの解除はどのようにコードを書いたらよいかご存知でしょうか。もちろんパスワードは分かっているという前提で。
    SETINFOでどうにかなるものなのでしょうかね。

    納品物にパスワードを掛けるのですが、掛けた後で一括修正したいときなど一括で解除出来たらいいなと思い聞いてみました。

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