【Word VBA】ワード画面からグーグル”フレーズ”検索するWordマクロ

2010年4月14日

,

先日のグーグルの右クリックマクロ の応用版です。

通常のグーグル検索のプログラムとの違いは、キーワードの前後に%22があるということです。

これが「"」ひとつを意味するみたいです。

グーグルの通常の検索結果のURLとフレーズ検索のURLとの比較して上記のことに気がつきました。

作用

先日のグーグル検索マクロと同様です。

ワードの文書中に文字列を選択した状態で、このマクロを実行します。

そうすると、エクスプローラーが立ち上がり、選択した文字列のフレーズ検索結果が表示されます。

プログラム

1
2
3
4
5
6
7
8
9
Sub フレーズでグーグル検索()
　Dim word As String
　Dim URL As String
　
　word = Selection.Text
　URL = "http://www.google.co.jp/search?q=%22" & word & "%22&lr="
　ActiveDocument.FollowHyperlink Address:=URL, NewWindow:=False, AddHistory:=True
 
End Sub

登録方法

右クリックに登録しておくと非常に便利ですね。

登録方法は、こちら をご覧ください。

-コード
-,

S