Selektion mit Google suchen: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Thomas (Diskussion | Beiträge) Keine Bearbeitungszusammenfassung |
Thomas (Diskussion | Beiträge) Keine Bearbeitungszusammenfassung |
||
| Zeile 12: | Zeile 12: | ||
End Sub | End Sub | ||
</pre> | </pre> | ||
[[Kategorie:Macro]] | |||
[[Kategorie:Basic]] | |||
[[Kategorie:VBA]] | |||
[[Kategorie:Visual Basic for Applications]] | |||
[[Kategorie:Word]] | |||
[[Kategorie:Excel]] | |||
Version vom 14. April 2014, 20:07 Uhr
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