サクラエディタふぁんくらぶ part19

[0280 名無しさん＠お腹いっぱい。 2021/02/06(土) 17:59:32.85 ID:jvcBzDBC0]

選択範囲を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("https://www.google.co.jp/search?q="; & keyword)