先月のサン・フレア アカデミーさんでのセミナー でご要望いただいたマクロの紹介です。
「Googleの画像検索サイトにて、選択中の文字列をフレーズ検索したい！」というご要望でした。
右クリックでGoogle！ で設定すればできるんですけど（笑）。
11月のセミナー「11/18（日） 遠田和子と新田順也のGoogle検索セミナー 」の事前アンケートでも同じようなご要望をいただています。
やっぱり、この手の検索はよく使いますよね。
単独でショートカットキーに登録したり、ボタン化できるように、マクロとしてご用意させていただきました。
どうぞご活用ください。
▼このマクロでできること
選択されている文字列をGoogleの画像検索にてフレーズ検索します。
文字列が選択されていない場合には、実行を中止します。
▼マクロの解説
かつて書いた記事「ワード画面から右クリックでグーグル”フレーズ”検索するマクロ 」をもとにして作り直しました。
文字列が選択されていない場合に終了する方法は青文字で示しました。
▼マクロ
Sub Google画像検索()
Dim myKW As String '検索する文字列
Dim URL As String 'Google画像検索のフレーズ検索用URL
'文字列が選択されていない場合には終了
If Selection.Start = Selection.End Then Exit Sub
'URLの作成
myKW = Selection.text
URL = "http://images.google.co.jp/images?q=%22 " & myKW & "%22"
'作成したURLに基づいて、インターネット検索
ActiveDocument.FollowHyperlink Address:=URL
End Sub