Selektion in WikiPedia suchen: Unterschied zwischen den Versionen

Aus Thomas Wiki
Zur Navigation springen Zur Suche springen
(Die Seite wurde neu angelegt: „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 et…“)
 
Keine Bearbeitungszusammenfassung
 
(Eine dazwischenliegende Version desselben Benutzers wird nicht angezeigt)
Zeile 2: Zeile 2:


<pre>
<pre>
Sub WikiPediaLookUp()
Sub WikiSearch()
   Dim SearchString As String
   Dim SearchString As String
   
   
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]]

Aktuelle Version vom 15. April 2014, 08:04 Uhr

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