Sub DictionaryMultipleFetch()
' Paul Beverley - Version 24.10.22
' Launches selected text to dictionary.com and other dictionaries

numSites = 4
ReDim mySite(numSites) As String
mySite(1) = "http://dictionary.com/browse/"
mySite(2) = "https://dictionary.cambridge.org/dictionary/english/"
mySite(3) = "https://www.collinsdictionary.com/dictionary/english/"
mySite(4) = "https://books.google.com/ngrams/graph?content="

If Len(Selection) = 1 Then Selection.Expand wdWord
mySubject = Trim(Selection)
mySubject = Replace(mySubject, " ", "+")
mySubject = Replace(mySubject, "&", "%26")
mySubject = Replace(mySubject, ChrW(8217), "'")

For i = 1 To numSites
  ActiveDocument.FollowHyperlink Address:=mySite(i) & mySubject
  Selection.Collapse wdCollapseEnd
Next i
End Sub