Sub DictionaryFetchByLanguage()
' Paul Beverley - Version 22.03.25
' Checks the current word in a language-related dictionary

' useOUPpremium = True
useOUPpremium = False

Set rng = Selection.Range.Duplicate
rng.Collapse wdCollapseStart
rng.MoveEnd , 1
myLanguage = rng.LanguageID

Select Case myLanguage
  Case wdEnglishUK
       If useOUPpremium = True Then
         Call OUPFetchPremium: Exit Sub
       Else
         mySite = "https://www.lexico.com/definition/"
       End If
  Case wdEnglishUS
       mySite = "https://www.merriam-webster.com/dictionary/"
  Case wdEnglishAUS
       mySite = "https://www.macquariedictionary.com.au/features/word/search/"
  Case wdSwissFrench
       mySite = "https://www.wordreference.com/fren/"
  Case wdFrench
       mySite = "https://www.wordreference.com/fren/"
  Case wdSpanish
       mySite = "https://www.wordreference.com/esen/"
  Case wdSpanishArgentina
       mySite = "https://www.wordreference.com/esen/"
  Case wdSpanishBolivia
       mySite = "https://www.wordreference.com/esen/"
  Case wdSpanishChile
       mySite = "https://www.wordreference.com/esen/"
  Case wdSpanishColombia
       mySite = "https://www.wordreference.com/esen/"
  Case wdSpanishCostaRica
       mySite = "https://www.wordreference.com/esen/"
  Case wdSpanishDominicanRepublic
       mySite = "https://www.wordreference.com/esen/"
  Case wdSpanishEcuador
       mySite = "https://www.wordreference.com/esen/"
  Case wdSpanishElSalvador
       mySite = "https://www.wordreference.com/esen/"
  Case wdSpanishGuatemala
       mySite = "https://www.wordreference.com/esen/"
  Case wdSpanishHonduras
       mySite = "https://www.wordreference.com/esen/"
  Case wdSpanishModernSort
       mySite = "https://www.wordreference.com/esen/"
  Case wdSpanishNicaragua
       mySite = "https://www.wordreference.com/esen/"
  Case wdSpanishPanama
       mySite = "https://www.wordreference.com/esen/"
  Case wdSpanishParaguay
       mySite = "https://www.wordreference.com/esen/"
  Case wdSpanishPeru
       mySite = "https://www.wordreference.com/esen/"
  Case wdSpanishPuertoRico
       mySite = "https://www.wordreference.com/esen/"
  Case wdSpanishUruguay
       mySite = "https://www.wordreference.com/esen/"
  Case wdSpanishVenezuela
       mySite = "https://www.wordreference.com/esen/"
  Case wdMexicanSpanish
       mySite = "https://www.wordreference.com/esen/"
  Case Else
       mySite = "https://www.merriam-webster.com/dictionary/"
End Select

rng.Expand wdWord
mySubject = Trim(rng.Text)
mySubject = Replace(mySubject, " ", "+")
mySubject = Replace(mySubject, "&", "%26")
mySubject = Replace(mySubject, ChrW(8217), "'")
Set newLink = ActiveDocument.Hyperlinks.Add(Anchor:=Selection.Range, _
   Address:=mySite & mySubject)
newLink.Follow
ActiveDocument.Undo
End Sub