【コード】Googleのワイルドカード検索をする

今まで紹介してきたグーグル検索ですが、ワイルドカード検索という非常に便利な機能があります。

そのプログラムの紹介です。

▼作用

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

すると、エクスプローラーが立ち上がり、グーグルの検索結果が表示されます。

この検索結果では、選択した文字列中の「半角スペース」と「全角スペース」にアスタリスク「*」が挿入されてフレーズ検索された結果が表示されます。

これがワイルドカード検索とよばれるものです。

このアスタリスクが、任意の文字列を示します。

お試し下さい。

▼プログラム

Sub グーグル検索_ワイルドカード()

Dim phrase As String ‘複数の単語の塊
Dim URL As String ‘開きたいサイトのURL

‘抽出した単語から検索用のフレーズを作る(半角スペース区切り)
phrase = Replace(Selection.Text, ” “, “+*+”)

‘抽出した単語から検索用のフレーズを作る(全角スペース区切り)
phrase = Replace(phrase, “ ”, “+*+”)

URL = “http://www.google.co.jp/search?q=%22 ” & phrase & “%22&lr=”
ActiveDocument.FollowHyperlink Address:=URL, AddHistory:=True

End Sub

▼プログラムの工夫

Replace関数を用いています。

この説明は別の機会に。。。

トップへ戻る