先日のWordマクロセミナー(超入門編)
にて、参加いただいた方々から好評だったのが、Webサービスで串刺し検索(同時検索)をするマクロでした。
自分でマクロを登録するからこそ、自分が好きなサイトを使えるようになるんですね。
しかも、好きな数だけ登録できるのが魅力です。
以前、この串刺し検索に関してはまばらに情報を紹介してまいりましたので、まとめてご案内します。
▼このマクロでできること
文字列を選択して実行すると、複数のウェブサービスでその文字列の意味の検索結果ページを表示します。
ブラウザを立ち上げる必要も、それぞれのウェブサービスで文字列を入力して検索ボタンをクリックする必要もありません。
※:ブラウザやサイトの種類によっては、日本語の検索で文字化けが起こってしまい、期待する結果が得られないことがございます。
▼マクロの解説
紹介しているマクロでは、Googleのフレーズ検索、英辞郎、Weblioの英和・和英辞典、日本語版Wikipediaの4つのサイトで串刺し検索(同時検索)をします。
上記以外のサイトをご希望の場合、myURL部分に、お好きなウェブサービスのURLを入力できます。
選択されている文字列を検索結果に反映させるために少し工夫が必要です。
すぐに使えるURLは、以下のリンクからご覧ください。
Web串刺し検索に使えるサイト情報
自分でURLを作りたい方は、以下のURLをご覧ください。
PC Onlineの記事
▼マクロ
Sub Webサービスで串刺し検索()
Dim myURL As String
On Error Resume Next
myURL = "http://www.google.co.jp/search?q=%22" & Selection.Text & "%22"
ActiveDocument.FollowHyperlink Address:= myURL
myURL = "http://eow.alc.co.jp/" & Selection.Text
ActiveDocument.FollowHyperlink Address:= myURL
myURL = "http://ejje.weblio.jp/content/" & Selection.Text
ActiveDocument.FollowHyperlink Address:= myURL
myURL = "http://ja.wikipedia.org/wiki/" & Selection.Text
ActiveDocument.FollowHyperlink Address:= myURL
End Sub
▼関連記事
【開催報告】Wordマクロセミナー(超入門編)
日経パソコン 連載第2回目 「目的の場所へ瞬間移動」
Web串刺し検索に使えるサイト情報
▼お知らせ
6/17(日) 東京 ExcelマクロユーザーのためのWordマクロ入門
残席少
6/24(日) 東京 Wordマクロセミナー(プログラミング編)
残席1
7/7(土) 大阪 WordマクロでスピードUP↑セミナー
残席10
7/21(土) 東京 サン・フレア アカデミー オープンスクール