Sub GoogleFetch() ' Paul Beverley - Version 29.05.24 ' Launches selected text on Google alsoCopySubject = False ' mySite = "http://www.worldcat.org/search?q=" mySite = "http://www.google.co.uk/search?q=" ' Or for Google Scholar, use ' mySite = "https://scholar.google.com/scholar?q=" ' USA ' mySite = "http://www.google.com/search?q=" ' Canada ' mySite = "http://www.google.ca/search?q=" ' Australia ' mySite = "http://www.google.com.au/search?q=" ' India ' mySite = "http://www.google.co.in/search?q=" ' Netherlands ' mySite = "http://www.google.nl/search?q=" ' Germany ' mySite = "http://www.google.de/search?q=" ' South Africa ' mySite = "http://www.google.co.za/search?q=" ' Chile ' mySite = "https://www.google.com.cl/search?q=" 'Colombia ' mySite = "http://www.google.com.co/search?q=" If Selection.Start = Selection.End Then Selection.Expand wdWord If Len(Selection) < 3 Then Selection.Collapse wdCollapseStart Selection.MoveLeft , 1 Selection.Expand wdWord End If Do While InStr(ChrW(8217) & "' ", Right(Selection.Text, 1)) > 0 Selection.MoveEnd , -1 DoEvents Loop Else endNow = Selection.End Selection.MoveLeft wdWord, 1 startNow = Selection.Start Selection.End = endNow Selection.Expand wdWord Do While InStr(ChrW(8217) & "' ", Right(Selection.Text, 1)) > 0 Selection.MoveEnd , -1 DoEvents Loop Selection.Start = startNow End If If alsoCopySubject = True Then Selection.Copy mySubject = Trim(Selection) mySubject = Replace(mySubject, " ", "+") mySubject = Replace(mySubject, "&", "%26") mySubject = Replace(mySubject, ChrW(8217), "'") Debug.Print mySite & mySubject ActiveDocument.FollowHyperlink Address:=mySite & mySubject Selection.Collapse wdCollapseEnd End Sub