Sub GoogleTranslate()
' Paul Beverley - Version 11.07.21
' Launches selected text to GoogleTranslate

myLanguage = "de"
myLanguage = "es"

mySite = "https://translate.google.co.uk/?oe=utf-8&hl=en&sl=auto&tl=<LANG>&text=<TEXT>&op=translate"

If Len(Selection) = 1 Then
  Selection.Expand wdParagraph
  Selection.MoveEnd , -1
End If
wd = Selection.Words(1)
If Application.CheckSpelling(wd, _
     MainDictionary:=Languages(wdEnglishUK).NameLocal) _
     = False And Application.CheckSpelling(wd, _
     MainDictionary:=Languages(wdEnglishUS).NameLocal) _
     = False Then myLanguage = "en"
If Selection.Words.Count > 1 Then
  wd = Selection.Words(2)
  If Application.CheckSpelling(wd, _
       MainDictionary:=Languages(wdEnglishUK).NameLocal) _
       = False And Application.CheckSpelling(wd, _
       MainDictionary:=Languages(wdEnglishUS).NameLocal) _
       = False Then myLanguage = "en"
End If
mySubject = Trim(Selection)
mySubject = Replace(mySubject, " ", "+")
myURL = Replace(mySite, "<LANG>", myLanguage)
myURL = Replace(myURL, "<TEXT>", mySubject)

Debug.Print myURL
ActiveDocument.FollowHyperlink Address:=myURL
Selection.Collapse wdCollapseEnd
End Sub