Sub GoogleFetchCookie()
' Paul Beverley - Version 25.01.23
' Launches selected text to Google website with cookie prompt

mySite = "http://www.google.co.uk/"
numTabs = 4
myWait = 2.5
myWait2 = 2.5

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

Selection.Copy
ActiveDocument.FollowHyperlink Address:=mySite

myTime = Timer
Do
Loop Until Timer > myTime + myWait
For i = 1 To numTabs
  SendKeys "{TAB}"
Next i
myTime = Timer
Do
Loop Until Timer > myTime + myWait2
SendKeys "^v"
SendKeys "{ENTER}"
End Sub