Lorsqu’il travaille dans un document, Lewis peut sélectionner un mot ou une phrase, cliquer dessus avec le bouton droit de la souris et choisir l’option « Rechercher avec Bing ». Il n’est pas satisfait des résultats de recherche de Bing et préférerait de loin effectuer une recherche avec un autre moteur de recherche, tel que Google. Lewis se demande s’il existe un moyen d’ajouter d’autres moteurs de recherche au menu contextuel ou, peut-être, de modifier l’option «Rechercher avec Bing» pour utiliser un moteur de recherche différent.

Le fait même que Lewis ait une option «Rechercher avec Bing» dans le menu contextuel du clic droit m’indique qu’il utilise Word 2010 ou Word 2013. Cette option particulière n’existe pas dans Word 2007 ou Word 2016 ou une version ultérieure version.

Dans Word 2010 et Word 2013, vous pouvez modifier le registre Windows pour modifier l’option «Rechercher avec Bing». La modification du registre doit être effectuée avec soin, car un faux pas pourrait entraîner un système inutilisable. (Si vous avez besoin d’un rappel sur la façon de modifier le registre, y compris comment démarrer l’éditeur du registre, link: / windows-Editing_the_Windows_Registry [voir cette astuce sur le site WindowsTips].) Suivez ces étapes pour effectuer la modification:

  1. Quittez Word.

  2. Démarrez l’éditeur de registre.

  3. Recherchez et sélectionnez la clé de données suivante. (Cette clé de données, comme indiqué ci-dessous, est pour Word 2013. Si vous utilisez Word 2010, remplacez 15,0 par 14,0.)

  4. Choisissez Modifier | Nouveau | Valeur de chaîne. L’Éditeur du Registre ajoute une nouvelle valeur de chaîne sur le côté droit du Registre et vous permet d’entrer immédiatement son nom.

  5. Nommez la nouvelle valeur de chaîne « SearchProviderName » (sans les guillemets).

  6. Cliquez avec le bouton droit sur la valeur de chaîne nouvellement ajoutée et choisissez Modifier dans le menu contextuel résultant. L’Éditeur du Registre affiche la boîte de dialogue Modifier la chaîne.

  7. Dans le champ Données de la valeur, saisissez « Google » (sans les guillemets.)

  8. Cliquez sur OK. Les informations de l’éditeur de registre sont mises à jour.

  9. Choisissez à nouveau Modifier | Nouveau | Valeur de chaîne. L’Éditeur du Registre ajoute une autre nouvelle valeur de chaîne sur le côté droit du Registre et vous pouvez, à nouveau, modifier son nom.

  10. Nommez la nouvelle valeur de chaîne « SearchProviderURI » (sans les guillemets).

  11. Cliquez avec le bouton droit sur la valeur de chaîne nouvellement ajoutée et choisissez Modifier dans le menu contextuel résultant. L’Éditeur du Registre affiche la boîte de dialogue Modifier la chaîne.

  12. 12. Dans le champ Données de la valeur, saisissez « https://www.google.com/search?q= »

(encore une fois, sans les guillemets).

  1. Cliquez sur OK. Les informations de l’éditeur de registre sont mises à jour.

  2. Fermez l’éditeur de registre.

  3. Redémarrez Word.

Maintenant, allez-y et sélectionnez du texte. Lorsque vous cliquez dessus avec le bouton droit de la souris, l’option du menu contextuel est passée de « Rechercher avec Bing » à « Rechercher avec Google ». Si, à un moment donné (et pour une raison quelconque), vous souhaitez arrêter d’utiliser Google et recommencer à utiliser Bing, supprimez simplement les deux entrées de registre que vous avez créées au cours de ces étapes.

La modification de Registre précédente ne fonctionnera pas dans Word 2007 ou Word 2016 ou une version ultérieure. Comme déjà mentionné, aucune de ces versions n’inclut l’option « Rechercher avec Bing ». (Word 2016 et les versions ultérieures incluent une option «Recherche intelligente», mais pas d’option «Rechercher avec Bing».) Le seul moyen que nous avons pu trouver est d’ajouter une «Recherche avec Google»

L’option du menu contextuel consiste à ajouter des macros plutôt lourdes à votre document. Ce qui suit, par exemple, est un ensemble de macros qui ajouteront l’option sur un système Word 2007. Ceux-ci devraient être ajoutés à un module VBA normal:

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

Pour ajouter l’option « Rechercher avec Google » au menu contextuel, exécutez simplement la macro BuildControls. Si vous souhaitez ultérieurement supprimer l’option, vous pouvez exécuter la macro RemoveContextMenuItem.

Ces macros sont basées sur le travail effectué par Greg Maxey sur son site Web, ici:

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

Comme mentionné, les macros ne fonctionneront que sur un système Word 2007. Pour les raisons dont Greg discute sur son site Web, ils ne fonctionneront pas sur les systèmes Word 2016 ou ultérieurs sans quelques modifications plutôt majeures, et ils peuvent ne pas être stables même après les modifications en raison des changements que Microsoft continue d’apporter.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (166) s’applique à Microsoft Word 2007, 2010, 2013, 2019 et Word dans Office 365.