Sub GoogleFetchIncognito()
' Paul Beverley - Version 14.09.24
' Launches selected text to Google Chrome but incognito

mySite = "http://www.google.co.uk/search?q="
' Adjust the address above for your country’s Google URL

' Adjust the address below for your browser
' runBrowser = "C:\Program Files\Mozilla Firefox\Firefox"
' runBrowser = "C:\Program Files\Internet Explorer\iexplore"
runBrowser = "C:\Program Files\Google\Chrome\Application\Chrome"

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
mySubject = Selection.Text
Shell (runBrowser & " " & mySite & mySubject & " --incognito")
End Sub