Bei der Arbeit in einem Dokument kann Lewis ein Wort oder eine Phrase auswählen, mit der rechten Maustaste darauf klicken und die Option „Mit Bing suchen“ auswählen. Er ist mit den Suchergebnissen von Bing nicht zufrieden und würde es vorziehen, mit einer anderen Suchmaschine wie Google zu suchen. Lewis fragt sich, ob es eine Möglichkeit gibt, andere Suchmaschinen zum Kontextmenü hinzuzufügen oder möglicherweise die Option „Mit Bing suchen“ zu ändern, um eine andere Suchmaschine zu verwenden.

Die Tatsache, dass Lewis im Kontextmenü mit der rechten Maustaste die Option „Mit Bing suchen“ hat, zeigt mir, dass er entweder Word 2010 oder Word 2013 verwendet. Diese spezielle Option ist weder in Word 2007 noch in Word 2016 oder höher vorhanden Ausführung.

Sowohl in Word 2010 als auch in Word 2013 können Sie die Windows-Registrierung bearbeiten, um die Option „Mit Bing suchen“ zu ändern. Das Bearbeiten der Registrierung sollte sorgfältig durchgeführt werden, da ein Fehltritt zu einem unbrauchbaren System führen kann. (Wenn Sie eine Auffrischung zum Bearbeiten der Registrierung benötigen, einschließlich zum Starten des Registrierungseditors, siehe diesen Tipp auf der WindowsTips-Site.) Führen Sie die folgenden Schritte aus, um die Änderung vorzunehmen:

  1. Beenden Sie Word.

  2. Starten Sie den Registrierungseditor.

  3. Suchen Sie den folgenden Datenschlüssel und wählen Sie ihn aus. (Dieser Datenschlüssel ist, wie unten gezeigt, für Word 2013. Wenn Sie Word 2010 verwenden, ändern Sie 15.0 in 14.0.)

  4. Wählen Sie Bearbeiten | Neu | String-Wert. Der Registrierungseditor fügt der rechten Seite der Registrierung einen neuen Zeichenfolgenwert hinzu und ermöglicht Ihnen die sofortige Eingabe des Namens.

  5. Nennen Sie den neuen Zeichenfolgenwert „SearchProviderName“ (ohne Anführungszeichen).

  6. Klicken Sie mit der rechten Maustaste auf den neu hinzugefügten Zeichenfolgenwert und wählen Sie im daraufhin angezeigten Kontextmenü die Option Ändern. Der Registrierungseditor zeigt das Dialogfeld Zeichenfolge bearbeiten an.

  7. Geben Sie im Feld Wertdaten „Google“ ein (ohne Anführungszeichen).

  8. OK klicken. Die Informationen im Registrierungseditor werden aktualisiert.

  9. Wählen Sie erneut Bearbeiten | Neu | String-Wert. Der Registrierungseditor fügt der rechten Seite der Registrierung einen weiteren neuen Zeichenfolgenwert hinzu, und Sie können den Namen erneut ändern.

  10. Nennen Sie den neuen Zeichenfolgenwert „SearchProviderURI“ (ohne Anführungszeichen).

  11. Klicken Sie mit der rechten Maustaste auf den neu hinzugefügten Zeichenfolgenwert und wählen Sie im daraufhin angezeigten Kontextmenü die Option Ändern. Der Registrierungseditor zeigt das Dialogfeld Zeichenfolge bearbeiten an.

  12. 12. Geben Sie im Feld Wertdaten „https://www.google.com/search?q=“

ein (wieder ohne die Anführungszeichen).

  1. OK klicken. Die Informationen im Registrierungseditor werden aktualisiert.

  2. Schließen Sie den Registrierungseditor.

  3. Starten Sie Word neu.

Wählen Sie nun einen Text aus. Wenn Sie mit der rechten Maustaste darauf klicken, wurde die Kontextmenüoption von „Mit Bing suchen“ in „Mit Google suchen“ geändert. Wenn Sie irgendwann (und aus irgendeinem Grund) die Verwendung von Google beenden und Bing erneut verwenden möchten, löschen Sie einfach die beiden Registrierungseinträge, die Sie in diesen Schritten erstellt haben.

Die vorstehende Registrierungsänderung funktioniert in Word 2007 oder Word 2016 oder einer späteren Version nicht. Wie bereits erwähnt, enthält keine dieser Versionen die Option „Mit Bing suchen“. (Word 2016 und spätere Versionen enthalten die Option „Smart Lookup“, jedoch keine Option „Mit Bing suchen“.) Nur so konnten wir eine „Suche mit Google“ hinzufügen

Die Option zum Kontextmenü besteht darin, Ihrem Dokument einige ziemlich umfangreiche Makros hinzuzufügen. Im Folgenden finden Sie beispielsweise eine Reihe von Makros, mit denen die Option auf einem Word 2007-System hinzugefügt wird. Diese sollten einem regulären VBA-Modul hinzugefügt werden:

Option Explicit Dim oPopUp As CommandBarPopup Dim oCtr As CommandBarControl Private pWebAddress As String Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _   ByVal lpOperation As String, ByVal lpFile As String, _   ByVal lpParameters As String, ByVal lpDirectory As String, _   ByVal nShowCmd As Long) As Long

Sub BuildControls()

Dim oBtn As CommandBarButton     'Make changes to the Add-In template     CustomizationContext = ThisDocument.AttachedTemplate     'Prevent double customization     Set oPopUp = CommandBars.FindControl(Tag:="custPopup")

If Not oPopUp Is Nothing Then GoTo Add_Individual     'Add PopUp menu control to the top of the "Text" short-cut menu     Set oPopUp = CommandBars("Text").Controls.Add(msoControlPopup, , , 1)

With oPopUp         .Caption = "Search With Google"

.Tag = "custPopup"

.BeginGroup = True     End With     Set oBtn = oPopUp.Controls.Add(msoControlButton)

With oBtn         .Caption = "Google"

.FaceId = 940         .Style = msoButtonIconAndCaption         .OnAction = "WebPage"

End With     Set oBtn = Nothing Add_Individual:

'Or add individual commands directly to menu     Set oBtn = CommandBars.FindControl(Tag:="custCmdBtn")

If Not oBtn Is Nothing Then Exit Sub     'Add control using built-in ID 758 (Boo&kmarks...)

Set oBtn = Application.CommandBars("Text").Controls.Add(msoControlButton, 758, , 2)

oBtn.Tag = "custCmdBtn"

If MsgBox("This action caused a change to your Add-In template." _       & vbCr + vbCr & "Recommend you save those changes now.", _       vbInformation + vbOKCancel, "Save Changes") = vbOK Then           ThisDocument.Save     End If     Set oPopUp = Nothing     Set oBtn = Nothing lbl_Exit:

Exit Sub End Sub
Sub RemoveContextMenuItem ()

'Make command bar changes in Add-In template     CustomizationContext = ThisDocument.AttachedTemplate     On Error GoTo Err_Handler     Set oPopUp = CommandBars("Text").Controls("Search With Google")

'Delete individual commands on the PopUp menu.

For Each oCtr In oPopUp.Controls         oCtr.Delete     Next     'Delete the PopUp itself.

oPopUp.Delete     'Delete individual custom commands on the Text menu.

Reenter:

For Each oCtr In Application.CommandBars("Text").Controls         If oCtr.Caption = "Boo&kmark..." Then             oCtr.Delete             Exit For         End If     Next oCtr     If MsgBox("This action caused a change to your Add-In template." _       & vbCr + vbCr & "Recommend you save those changes now.", _       vbInformation + vbOKCancel, "Save Changes") = vbOK Then         ThisDocument.Save     End If     Set oPopUp = Nothing     Set oCtr = Nothing     Exit Sub Err_Handler:

' MsgBox Err.Number     Resume Reenter End Sub Public Sub WebPage()

pWebAddress = "https://www.google.com/search?q=" & Selection.Text     Call NewShell(pWebAddress, 3)

End Sub Public Sub NewShell(cmdLine As String, lngWindowHndl As Long)

ShellExecute lngWindowHndl, "open", cmdLine, _       Selection.Text, Selection.Text, 1 End Sub

Um die Option „Mit Google suchen“ zum Kontextmenü hinzuzufügen, führen Sie einfach das Makro „BuildControls“ aus. Wenn Sie die Option später entfernen möchten, können Sie das Makro RemoveContextMenuItem ausführen.

Diese Makros basieren auf Arbeiten von Greg Maxey auf seiner Website, hier:

https://gregmaxey.com/word_tip_pages/customize_shortcut_menu.html

Wie bereits erwähnt, funktionieren die Makros nur auf einem Word 2007-System. Aus Gründen, die Greg auf seiner Website erläutert, funktionieren sie auf Word 2016-Systemen oder späteren Systemen ohne größere Änderungen nicht und sind möglicherweise auch nach den Änderungen aufgrund von Änderungen, die Microsoft weiterhin vornimmt, nicht stabil.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (166) gilt für Microsoft Word 2007, 2010, 2013, 2019 und Word in Office 365.