Selektion in WikiPedia suchen

Die druckbare Version wird nicht mehr unterstützt und kann Darstellungsfehler aufweisen. Bitte aktualisiere deine Browser-Lesezeichen und verwende stattdessen die Standard-Druckfunktion des Browsers.

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

Sub WikiSearch()
  Dim SearchString As String
 
  Set Ie = CreateObject("InternetExplorer.Application")
  SearchString = Replace(Trim(Selection.Text), " ", "+")
  Ie.Visible = True
  Ie.navigate "http://de.wikipedia.org/w/index.php?search=" + SearchString
 
End Sub

Selektion in WikiPedia suchen

Navigationsmenü

Suche