タイトル : Re^2: Webページの範囲選択につきまして 投稿日 : 2017/07/05(Wed) 21:50 投稿者 : susu
魔界の仮面弁士 さん 返答をして頂きまして、ありごとうございます。 返答が遅れまして申し訳ありませんでした。 >> すべての範囲選択を解除[Ctrl+D] (すべてが薄茶色反転になります) > これは分かるのですが、 範囲選択の解除を検索しましたら[Ctrl+D] でショットキーで試しましたら右上に 「ブックマーク」が表示されました。「お気に入りの追加」を範囲選択の解除と間違っていました。 > hhttps://ja.wikipedia.org/wiki/%E3%82%B7%E3%83%A7%E3%83%BC%E3%83%88%E3%82%AB%E3%83%83%E3%83%88%E3%82%AD%E3%83%BC%E4%B8%80%E8%A6%A7 提供して頂きましたショートカットキー一覧は今後使用させてもらいます。 > 選択状態を解除しても構わないのであれば、これで如何でしょう。 > Dim selection As Object > Set selection = objInternetExplorer.Document.selection.createRange() > Call selection.setEndPoint("EndToStart", selection) > Call selection.select() はい、ありがとう御座います。今後は、使わせてもらいます。 下記の、ご質問につきましてご教示願えますと幸いであります。 @のURLでは全ての選択は問題なくできました。 AのURLでは検索欄にカーソルがありWEBページが選択できませんでした。 手動では検索欄以外の部分を一度クリックして[Ctrl+A]しますと検索欄を除く WEBページが範囲選択されました。 質問1 検索欄にカーソルがある場合、TABキーで送ったり、戻したり試しましたが WEBページにより範囲選択されない場合もありました。 プログラムで、検索欄にカーソルがある場合でも範囲選択の方法はありますでしょうか。 質問2 Internet Explorer 以外のブラウザでは範囲選択の解除はできないものと考えてよいでしょうか。 参考として下記にしました。 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Option Explicit Private Sub Command1_Click() Dim objInternetExplorer As InternetExplorer Set objInternetExplorer = CreateObject("InternetExplorer.Application") objInternetExplorer.Visible = True objInternetExplorer.Navigate "https://www.google.com/doodles"'@ objInternetExplorer.Navigate "http://www.google.co.jp/"'A While objInternetExplorer.ReadyState <> READYSTATE_COMPLETE Or objInternetExplorer.Busy = True DoEvents Wend '全てを選択 Call objInternetExplorer.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT) 'コピーは以下のWEBを参考にしました。 'hhttps://msdn.microsoft.com/en-us/library/ms691264.aspx 'OLECMDID_COPY = 12 コピー Call objInternetExplorer.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' 選択状態を解除 Dim selection As Object Set selection = objInternetExplorer.Document.selection.createRange() Call selection.setEndPoint("EndToStart", selection) Call selection.Select ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Set objInternetExplorer = Nothing End Sub ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' |