Macro/投稿/174

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16

//任意のブラウザのパスに書き換える
var strBrowserPath = "C:\\Program Files\\Opera\\Opera.exe";
 
strBrowserPath = "\"" + strBrowserPath + "\"";
 
var keyword = GetSelectedString(0);
if( keyword == ""){
    GetSelectedString(0);
}
 
//エンコードしてないと失敗するorz
keyword = encodeURIComponent(keyword);
 
var strUrl = "https://www.google.co.jp/search?hl=ja&inlang=ja&q=" + keyword;
var shell = new ActiveXObject("WScript.Shell");
shell.Run(strBrowserPath + " \"" + strUrl + "\"");