翻訳と英文作成に役立つマクロその3(Wikipediaを検索するマクロ)
https://gyazo.com/883b21c7b0b68b3caf54c8dfb8678dbc
code:WikiSearch
Sub a_Wiki検索()
Dim word As String
Dim URL As String
On Error GoTo Err1
If Selection.Start = Selection.End Then
word = ""
Else
word = Replace(Trim(Selection.Text), " ", "_")
End If
ActiveDocument.FollowHyperlink Address:=URL
Exit Sub
Err1:
MsgBox (Err.Description)
End Sub