【コード】英辞郎 on the Web で辞書検索するWordマクロ

昨日のライフサイエンス辞書で検索するマクロに引き続き、2010年12月のサン・フレア アカデミーさんのセミナーの受講生の方とのコラボレーションマクロです。

今回は、みなさんおなじみの英辞郎 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

マクロの登録方法

マクロの登録方法の目次

関連記事

ライフサイエンス辞書 検索マクロ

サン・フレア アカデミー 12月4日(土)セミナーの目次

サン・フレア アカデミー セミナーの目次

トップへ戻る