MS-Word で選択中の文字列をWeblio のシソーラスで検索するマクロ（VBA)

シソーラスとは類義語辞典のことである。言葉選びをしたいときに便利なものだ。

下記はMS-Word で選択中の文字列をweblioのシソーラス（https://thesaurus.weblio.jp/content/）の末尾に結合した URL でブラウザを立ち上げるマクロである。

これにより、選択中の文字列の類義語を書いたページがブラウザで開かれる。

Sub thesaurus()

' 
' thesaurus Macro use weblio thesaurus
'
  ActiveDocument.FollowHyperlink _
  Address:="https://thesaurus.weblio.jp/content/" & Selection.Text, _
  NewWindow:=False, _
  AddHistory:=True
 
End Sub

このマクロを空いたFキーに割り付けておけば、キー一発でシソーラスが開く。