Sub BusquedaGoogle()
Dim pStr As String, pSrcText As String, pChar As String, URL As String
Dim i As Long
  pStr = Selection.Text
  i = 1
  For i = 1 To Len(pStr)
    pChar = Mid(pStr, i, 1)
    pSrcText = pSrcText + EncodeUTF8(pChar)
  Next i
'%22 se necesita al principio y al final de la cadena, por lo que Google busca en toda la cadena
  URL = "http://www.google.com/search?q=%22" & pSrcText & "%22"
'Tenga en cuenta que si la longitud es superior a 487, la url transmitida tendrá un cortocircuito.
  ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
    URL, ScreenTip:="Buscar este texto con Google", _
    TextToDisplay:=Selection.Text
End Sub

Public Function EncodeUTF8(ByVal pCar As String) As String
Dim CarVal As Long
Dim Sextet As Long
Dim Quintet As Long
Dim Sextet1 As Long
Dim Sextet2 As Long
Dim Quartet As Long
CarVal = AscW(pCar)
'Asegurar valores de puntos de código positivos
If CarVal < 0 Then CarVal = CarVal + 65536
Select Case CarVal
'Caso ASCII, codificación de 1 byte, 7 bits significativos
Case Is < 128
EncodeUTF8 = pCar
'Codificación de 2 bytes, 8 a 11 bits significativos (5 bits, luego 6 bits)
Case Is > 127, Is < 2048
Sextet = 128 + CarVal Mod 64
CarVal = CarVal \ 64
Quartet = 224 + CarVal
EncodeUTF8 = "%" + Hex(Quartet) + "%" + Hex(Sextet1) + "%" + Hex(Sextet2)
End Select
End Function