Sub DictionaryFetchByLanguage() ' Paul Beverley - Version 21.03.22 ' Checks the current word in a language-relate dictionary ' Based on an idea by Rob Worth Set rng = Selection.Range.Duplicate myLanguage = rng.LanguageID If Len(rng.Text) < 3 Then rng.Expand wdWord Select Case myLanguage Case wdEnglishUS mySite = "https://www.merriam-webster.com/dictionary/" Case wdEnglishAUS mySite = "https://www.macquariedictionary.com.au/features/word/search/" Case wdGerman mySite = "https://www.duden.de/suchen/dudenonline/" Case wdFrench mySite = "https://www.collinsdictionary.com/dictionary/french-english/" Case Else mySite = "https://www.lexico.com/definition/" End Select 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