[Wikide-l] CD-ROM beim c't 4/2005

[Thomas Karcher]

> Auf der aktuellen c't-CD-ROM ist ein Makro (Freeware)
> Könnten wir so etwas auch für Winword machen?

Vorausgesetzt, der Internet Explorer ist auf deinem System installiert und
du hast in VBA unter [Extras] -> [Verweise] einen Verweis auf "Microsoft
Internet Controls" gesetzt, reicht folgender Code:

Const BASE_URL = "http://de.wikipedia.org/"
Sub lookup()
  Dim ie As InternetExplorer
  Set ie = New InternetExplorer
  ie.Navigate (BASE_URL & "/wiki/Spezial:Search?go=1&search=" & Selection)
  ie.Visible = True
End Sub

Gruß,
Thomas