一太郎の質問箱

google検索は可能でしょうか？

投稿No	：相談者 (#6011)
登録日	： 2006年3月10日

お世話になっています。
以下のコードでワード上で
文字列を選択してマクロを実行するとgoogle検索ができるのですが
一太郎ではできないでしょうか。
できると便利なのですが。

Sub Google検索()
Dim strURL As String
Dim strPARA As String
Dim objIE As Object

strPARA = Selection.Text
strURL = "http://www.google.co.jp/search?q=" 'Googleのｑ＝まで
strURL = strURL & KEYWORD(strPARA) 'エンコードしてURLを作成する

Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate "" & strURL 'アドレスを渡し表示する

End Sub

Re:google検索は可能でしょうか？

投稿No	：回答者 (#6013)
登録日	： 2006年3月11日

(記事番号 #6011へのコメント)

とりあえず、１行限定ですが、
これでどうでしょう。

%GS = GetString()
%strPARA = %GS(1)
%strURL = "http://www.google.co.jp/search?q="
%strURL = %strURL & %strPARA
Set %objIE = CreateObject("InternetExplorer.application")
%objIE.Visible = True
%objIE.Navigate("" &%strURL)

Re:google検索は可能でしょうか？

投稿No	：相談者 (#6015)
登録日	： 2006年3月11日

(記事番号 #6013へのコメント)

本当にありがとうございます。
できるのですね♪、感激です。
ワードの場合との違いは
IE画面がワードの画面の上に表示されるのですが
一太郎の場合は後ろに隠れてしまいます。
ワードと同じようにはできないのでしょうか。
何か方法がありましたらよろしくお願いします。

Re:google検索は可能でしょうか？

投稿No	：回答者 (#6016)
登録日	： 2006年3月12日

(記事番号 #6015へのコメント)
> 一太郎の場合
>後ろに隠れてしまうのですが
>ワードと同じようにはできないのでしょうか。

ちょっと探してみましたが、
見つかりませんでした。(^^)ゞ

Re:google検索は可能でしょうか？

投稿No	：相談者 (#6038)
登録日	： 2006年3月14日

(記事番号 #6016へのコメント)

使っているうちに
前面にも表示されるようになりましたので解決です。
どうもありがとうございました。