21/02/06 17:59:32.85 jvcBzDBC0.net
選択範囲をGoogle検索するマクロを使わせてもらっているのですが、
半角スペースで区切られている複数の単語を選択した場合
一番最初の単語しか検索されません。
半角スペースで区切られた複数の単語をAND検索するには
どう書き換えたらいいのでしょうか?
' 選択文字列/カーソル位置単語をGoogleで検索
Dim keyword
keyword = GetSelectedString(0)
If keyword = "" Then
keyword = GetSelectedString(0)
End If
Dim sh
Set sh = CreateObject("WScript.Shell")
Call sh.Run("URLリンク(www.google.co.jp) & keyword)