Sub BuscaEnRAE()
' Paul Beverley - Version 10.05.22
' Busca el texto seleccionado en el diccionario de la Real Academia Espaņola

mySite = "https://dle.rae.es/"

If Selection.Start = Selection.End Then
 Selection.Expand wdWord
 Do While InStr(ChrW(8217) & "' ", Right(Selection.Text, 1)) > 0
 Selection.MoveEnd, -1
 DoEvents
 Loop
Else
 endNow = Selection.End
 Selection.MoveLeft wdWord, 1
 Selection.End = endNow
 Selection.Expand wdWord
 Do While InStr(ChrW(8217) & "' ", Right(Selection.Text, 1)) > 0
 Selection.MoveEnd, -1
 DoEvents
 Loop
End If

mySubject = Trim(Selection)
mySubject = Replace(mySubject, " ", "+")
mySubject = Replace(mySubject, "&", "%26")
mySubject = Replace(mySubject, ChrW(8217), "'")
'MsgBox mySite & mySubject
ActiveDocument.FollowHyperlink Address:=mySite & mySubject & "?m=form"
Selection.Collapse wdCollapseEnd
End Sub