Selektion mit Google suchen

Aus Thomas Wiki
Version vom 14. April 2014, 20:19 Uhr von Thomas (Diskussion | Beiträge)
(Unterschied) ← Nächstältere Version | Aktuelle Version (Unterschied) | Nächstjüngere Version → (Unterschied)
Zur Navigation springen Zur Suche springen

Folgendes MS Visual Basic Makro ruft Internet Explorer auf und sucht den selektierten Text mit Google. Es sollte mit MS Word 2010, MS Excel 2010 etc funktionieren.

Sub GoogleSearch()
  Dim SearchString As String
 
  Set Ie = CreateObject("InternetExplorer.Application")
  SearchString = Replace(Trim(Selection.Text), " ", "+")
  Ie.Visible = True
  Ie.navigate "https://google.com/search?q=" + SearchString
 
End Sub