>>476
うわー
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.SendKeys "+{F12}" 'atok日本語入力off
objShell.SendKeys "^a" 'Ctrl+A →DELでクリア
objShell.SendKeys "^{DEL}"
objShell.SendKeys "?g "　　　'google検索
objShell.SendKeys "+{F11}" 'atok日本語入力on
必死こいて無い頭ふりしぼって半角/全角関わらず正確にSendKeys
できるスクリプトやっと動いたと思ったらこんなプラグインがくるなんて！
もうちょっと待ってればよかった.nocdさんありがとうございます
他にも使える箇所たくさんあるのでそっちで使わせて貰います。