ワード画面から右クリックでグーグル”フレーズ”検索するマクロ | みんなのワードマクロ

みんなのワードマクロ

ワードマクロで、文書作成とオフィス事務を効率化!!

----------------------------------------
この記事を新しいサイトに転記しました
----------------------------------------

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


通常のグーグル検索のプログラムとの違いは、キーワードの前後に

%22があるということです。


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


グーグルの通常の検索結果のURLとフレーズ検索のURLとの比較して

上記のことに気がつきました。


▼作用

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

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


そうすると、エクスプローラーが立ち上がり、選択した文字列の

フレーズ検索結果が表示されます。


▼プログラム

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

▼登録方法

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

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