今まで紹介してきたグーグル検索ですが、ワイルドカード検索という非常に便利な機能があります。
そのプログラムの紹介です。
▼作用
ワード文章中で文字を選択した状態で、このマクロを実行します。
すると、エクスプローラーが立ち上がり、グーグルの検索結果が表示されます。
この検索結果では、選択した文字列中の「半角スペース」と「全角スペース」にアスタリスク「*」が挿入されてフレーズ検索された結果が表示されます。
これがワイルドカード検索とよばれるものです。
このアスタリスクが、任意の文字列を示します。
お試し下さい。
▼プログラム
Sub グーグル検索_ワイルドカード()
Dim phrase As String '複数の単語の塊
Dim URL As String '開きたいサイトのＵＲＬ
'抽出した単語から検索用のフレーズを作る（半角スペース区切り）
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関数を用いています。
この説明は別の機会に。。。