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