【コード】ライフサイエンス辞書で検索するWordマクロ

12月のサン・フレア アカデミーさんでのセミナーを受講いただいた方と一緒につくったマクロです。

こういうコラボが楽しいんですよね。

このマクロでできること

文字列を選択した状態でマクロを実行すると、ウェブブラウザを起動します。

そして、ライフサイエンス辞書 で文字列を検索した結果を表示します。

右クリックでGoogle! と同じような動きですね。

たとえば、ジャッキーチェンの文字を選択します。

この状態で、マクロを実行します。

すると、ウェブブラウザが起動します。

検索結果 が表示されました。

残念ながら、ライフサイエンス辞書に、ジャッキーチェンは記載されていないようです。

マクロの解説

文字列が選択されていない場合(Selection.Start = Selection.Endの場合)には、検索のトップページが表示されます。

マクロ


Sub WEB_Search_LSD()

 'ライフサイエンス辞書
 
 Dim URL As String
 
 If Selection.Start = Selection.End Then
  URL = "http://lsd.pharm.kyoto-u.ac.jp/ja/service/weblsd/index.html"
 Else
  URL = "http://lsd.pharm.kyoto-u.ac.jp/weblsd/c/begin/" & Selection.Text
 End If
 
 ActiveDocument.FollowHyperlink Address:=URL, NewWindow:=False, AddHistory:=True

End Sub

マクロの登録方法

マクロの登録方法の目次

関連記事

英辞郎 on the Web で辞書検索するマクロ

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

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

トップへ戻る