出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[1262] Re:ACROBAT READER のOCX？
投稿者：北岳さん 2001/12/14 12:14:35
tomitomiさん、ありがとうございます。
　
>暫定として、sendkeys関数で、ファイル＋閉じる　を実行してみては？　
　
とりあえず、これは成功しました。
タイマーも標準モジュールもなくして、下のフォーム単独で動きました。
　
=====================================
Private Sub Command1_Click()
Open "c:\documents and settings\administrator\デスクトップ\1.txt" For Output As #1
path1 = "c:\documents and settings\administrator\デスクトップ\"
path2 = "info77.pdf" 'pdfファイル名
fyl = path1 & path2
adobe = "c:\Program Files\Adobe\Acrobat 5.0\Reader\AcroRd32.exe"
buf = adobe & " " & fyl
'---
ret = Shell(buf, vbNormalFocus)
SendKeys "%E", True '編集
SendKeys "S", True 'すべてを選択
SendKeys "%E", True '編集
SendKeys "C", True 'コピー
DoEvents
Print #1, Clipboard.GetText 'ファイル#1にペースト
'AppActivate ret 'readerにフォーカス
SendKeys "%F", True 'ファイル
SendKeys "X", True '終了
MsgBox ("終了")
End
End Sub
=====================================
　
タイマー使用時、フォーカスがAcrobat Reader（pdf）からVBに移ってしまい、SendKeys "X~"（改行チルダ付き）とやったら、VBのコード中に文字Xが書きこまれました。
ProgIDの文字列を選んでCreateObjectしてからSetFocusしようにも、エラーばかり。
で、結局タイマーもやめました。
---
（最初の意図）
自宅機（Win98）の、Acrobat Reader 4では、1頁開いて「編集-すべてを選択」すると、その頁しか選択できません。
50ページもある特許明細書を相手にするので、頁めくり機能コミで、自動化しようと考えました。
ところがReader 5では「編集-すべてを選択」すると、全頁を一気に選択できることが判りましたので、自動化する意味も薄れました。
自宅機のReaderのバージョンを上げるほうが早そうです。(98にver5が入るかは現在不明ですが。)
というオチが付きましたが、メソド不明のOLEをVBで扱う練習問題としては最適そうなので、続けています。
---
（OLEコンテナコントロール）
>AcrobatReaderのOCXがありました。
>試してみたところ、プロパティのSRCにPDFファイルまでのパスを入れるだけで、
>VBのフォームのOCXにPDFが表示されます。
>これは使えるのでは？
　
フォームに挿入してしまえばフォーカスが移る心配もなさそうな気もしますが、メソドは一切不明のままなので、どこまで制御できるのかな？と思いますが・・・まあ、やってみれば判りますね。
---
（ハンドル名）
これを間違いなく取れれば、外部からのアプリ終了が自在になるのに・・・
Try & Error でClass Nameを色々入れてみるしか手はないんでしょうね。
Create Objectの方も試行法。なんか、不満。（といっても、高価な本を買う気はしませんが。）
ACROBAT READER の終了方法(ハンドル)？ 　 北岳さん [2001/12/13 19:11:51] [1259]
　 Re:ACROBAT READER の終了方法(ハンドル)？ 　 Tomitomiさん [2001/12/13 20:36:02] [1260]
　 ACROBAT READER のOCX？ 　 Tomitomiさん [2001/12/14 11:04:22] [1261]
　 　 Re:ACROBAT READER のOCX？ 　 北岳さん [2001/12/14 12:14:35] [1262]
　 アドビ一族の陰謀 　 北岳さん [2001/12/14 13:52:38] [1263]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ