マクロにてセルの文字をGoogle検索したい

マクロにてセルクリックしたらそのWordをGoogle検索したいです。
FollowHyperlinkを使用するようなのですが、他のページからのコピペでもYahoo検索はできるのですが。
これをGoogle検索”http://www.google.co.jp/search?q=”にWordを追加すると途端にできなくなります。
他の方もGoogle検索のSampleコード載せてくれているのですが、それも同じようなエラーになります。

VBA
1Sub serchtest()
2
3Dim word As String
4Dim URL As String
5
6word = Selection.Text
7URL = "http://www.google.co.jp/search?q =" & word
8'---エラーメッセージ　オブジェクトが必要です
9ActiveDocument.FollowHyperlink Address:=URL, NewWindow:=True
10
11End Sub

下記はそのまま書き込んでみました。

VBA
1Sub serchtest2()
2
3Dim strURL
4
5strURL = "http://www.google.co.jp/search?q=VBA"
6'---エラーメッセージ　必要な情報をダウンロードできません
7ActiveWorkbook.FollowHyperlink Address:=strURL, SubAddress:="", NewWindow:=True
8
9End Sub

strURLがネットで見つけた元々のURL"https://www.softel.co.jp/blogs/tech/"にするとちゃんと表示されます。
"http://www.google.co.jp”もちゃんと表示されます。
serchを入れると

’FollowHyperlink’は失敗しました。’_WorkBook’オブジェクト

他に付け足さなきゃいけない関数とかがあるのでしょうか？
検索はしてるのですが思った記事が見つからないです。
よろしくお願いします。

tetsunosuke

2019/05/23 02:27 編集

手元の環境ではうまく動きました。（MacのExcelですが・・・） strURL は http://www.google.co.jp/search までにしておいて、 ActiveWorkbook.FollowHyperlink Address:=strURL, SubAddress:="", ExtraInfo:="q=VBA2", NewWindow:=True このように、ExtraInfoとしてクエリを渡したらどうでしょうか？

Naoko_Coco

2019/05/23 02:51

tetsunosukeさんありがとうございます。 http://www.google.co.jp/searchまでならWEBは開きます。 ExtraInfoつけるとFollow・・・失敗しました。になりますね。。。どうもURLの文字列をjavascriptでUTF-8にエンコードするとって記事を見つけたのでちょっとやってみます。

tetsunosuke

2019/05/23 02:52

なるほど。例に出してもらっている VBA はうまくいくけど日本語だとダメ、ということですか！

Naoko_Coco

2019/05/23 03:03

ExtraInfo:="q=VBA2でも試したのですがうまくいきませんでした。

tetsunosuke

2019/05/23 03:34

プログラミングの問題ではない可能性もありそうですね。同じメッセージでこういうのをみつけました。 https://answers.microsoft.com/ja-jp/msoffice/forum/all/excel2013/7460a759-b838-42de-bf02-d7f9b6e33ba4

Naoko_Coco

2019/05/23 03:50

依存とかそういうものなんでしょうかね？？？

行動規範の内容に同意します

回答1件

自己解決

検索をしていて他の方があげてる方法にしました。
テキストが日本語の場合、エンコードしてあげなきゃいけないようです。
このようなやり方を初めて知りました！

VBA
1'Googleサーチ
2Sub Google_serch()
3
4Dim word As String
5Dim url
6word = Selection.Text
7url = "https://www.google.co.jp/search?q=" & UrlEncodeUtf8(word)
8
9CreateObject("wscript.shell").Run url
10End Sub

VBA
1'UTF-8にエンコードする
2Function UrlEncodeUtf8(ByRef strSource As String) As String
3Dim objSC As Object
4Set objSC = CreateObject("ScriptControl")
5objSC.Language = "Jscript"
6UrlEncodeUtf8 = objSC.CodeObject.encodeURIComponent(strSource)
7Set objSC = Nothing
8End Function