昨日のライフサイエンス辞書で検索するマクロに引き続き、２０１０年１２月のサン・フレア アカデミーさんのセミナーの受講生の方とのコラボレーションマクロです。
今回は、みなさんおなじみの英辞郎 on the Webです。
私は、英辞郎は普段使っていません。
パソコンに電子辞書が数冊入っていますので、そちらで訳語の候補を検索しています。
英辞郎は、自分の辞書が入っていないパソコンで、訳語の候補を探すのに便利ですね。
どちらにしろ、辞書からの訳語候補は、実際に使われる分野・文脈で裏をとりながら使うといいですね。
裏をとるのには、右クリックでGoogle！をご利用ください。
＜目次＞
このマクロでできること
文字列を選択した状態でマクロを実行すると、ウェブブラウザを起動します。
そして、英辞郎 on the Webで文字列を検索した結果を表示します。
昨日紹介した、ライフサイエンス辞書 検索マクロと同じような動きですね。
たとえば、ジャッキーチェンの文字を選択します。
この状態で、マクロを実行します。
すると、ウェブブラウザが起動します。
ありましたね。
しっかり検索結果 が表示されました。
しかも、意味深な例文が。。。
Jackie Chan has denied a rumor that he will retire from the movies.
（ジャッキー・チェンさんが映画界から引退するとのうわさを否定しました。）
マクロ
Sub MWM_WEB_Search_EJR() '英辞郎 on the Web Dim word As String Dim URL As String If Selection.Start = Selection.End Then word = "" Else word = Selection.Text End If word = Selection.Text URL = "http://eow.alc.co.jp/" & word ActiveDocument.FollowHyperlink Address:=URL, _ NewWindow:=False, AddHistory:=True End Sub