テキストエディタＱＸ　5

さすがに適当だったな
これだとダブルクォーテーションがあるとそこでちょん切れるぜ
で、ちょびっと修正してみた
なお、起動するブラウザとURL$指定のオプションパラメタは各自修正してちょ
(num=50&lr=lang_ja&safe=offなどなど)

--- web_search.mac ---
'選択文字列 を googleで検索する
'--- ブラウザ.exeファイル名を指定する（レジストリに登録されないものはフルパスで）
'const browser$ = """G:\bin\INET\Donut RAPT\Donut.exe"""
const browser$ = "iexplore.exe"

const URL$ = "http://www.google.co.jp/search?hl=ja&q="

dllname "shell32.dll"
const SW_SHOWNORMAL = 1
cdeclare int ShellExecute(HWND, LPSTR, LPSTR, LPSTR, LPSTR, int);

proc search()
dim keyword$
dim exe$
if @hwnd = 0 then exit proc
exe$ = searchexe$(browser$)
if exe$ = "" then exe$ = browser$
keyword$ = """" & URL$ & @TextSelect$ & """"
'ShellExecute(0, "open", keyword$, 0, 0, SW_SHOWNORMAL)
if shell(exe$ & " " & keyword$,1)=0 then
call msgbox(exe$ & "が起動できません",MB_ICONEXCLAMATION, "google検索マクロ")
exit proc
end if
end proc
---------------------