Quando lavora in un documento, Lewis può selezionare una parola o una frase, fare clic con il pulsante destro del mouse su di essa e scegliere l’opzione “Cerca con Bing”. Non è soddisfatto dei risultati di ricerca di Bing e preferirebbe di gran lunga cercare con un motore di ricerca diverso, come Google. Lewis si chiede se esiste un modo per aggiungere altri motori di ricerca al menu di scelta rapida o, forse, modificare l’opzione “Cerca con Bing” per utilizzare un motore di ricerca diverso.

Il fatto stesso che Lewis abbia un’opzione “Cerca con Bing” nel menu contestuale di scelta rapida mi dice che sta utilizzando Word 2010 o Word 2013. Questa particolare opzione non esiste né in Word 2007 né in Word 2016 o versioni successive versione.

Sia in Word 2010 che in Word 2013 è possibile modificare il registro di Windows per modificare l’opzione “Cerca con Bing”. La modifica del registro deve essere eseguita con attenzione, poiché un passo falso potrebbe rendere il sistema inutilizzabile. (Se hai bisogno di un aggiornamento su come modificare il registro, compreso come avviare l’editor del registro, vedi questo suggerimento sul sito WindowsTips.) Segui questi passaggi per apportare la modifica:

  1. Esci da Word.

  2. Avvia l’editor del registro.

  3. Individua e seleziona la seguente chiave dati. (Questa chiave dati, come mostrato di seguito, è per Word 2013. Se stai usando Word 2010, cambia 15.0 in 14.0.)

  4. Scegli Modifica | Nuovo | Valore stringa. L’editor del registro aggiunge un nuovo valore di stringa sul lato destro del registro e consente di immetterne immediatamente il nome.

  5. Assegna un nome al nuovo valore di stringa “SearchProviderName” (senza virgolette).

  6. Fare clic con il pulsante destro del mouse sul valore della stringa appena aggiunto e selezionare Modifica dal menu contestuale risultante. L’Editor del Registro di sistema visualizza la finestra di dialogo Modifica stringa.

  7. Nel campo Dati valore inserisci “Google” (senza virgolette.)

  8. Fare clic su OK. Le informazioni nell’Editor del Registro di sistema vengono aggiornate.

  9. Di nuovo scegli Modifica | Nuovo | Valore stringa. L’Editor del Registro di sistema aggiunge un altro nuovo valore di stringa sul lato destro del Registro di sistema e puoi, di nuovo, cambiarne il nome.

  10. Assegna al nuovo valore di stringa il nome “SearchProviderURI” (senza virgolette).

  11. Fare clic con il pulsante destro del mouse sul valore della stringa appena aggiunto e scegliere Modifica dal menu contestuale risultante. L’Editor del Registro di sistema visualizza la finestra di dialogo Modifica stringa.

  12. 12. Nel campo Dati valore immettere “https://www.google.com/search?q=”

(di nuovo, senza virgolette).

  1. Fare clic su OK. Le informazioni nell’Editor del Registro di sistema vengono aggiornate.

  2. Chiudi l’editor del registro.

  3. Riavvia Word.

Ora vai avanti e seleziona del testo. Quando fai clic con il pulsante destro del mouse su di esso, l’opzione del menu contestuale è cambiata da “Cerca con Bing” a “Cerca con Google”. Se a un certo punto (e per qualche motivo) vuoi smettere di usare Google e ricominciare a usare Bing, elimina le due voci di registro che hai creato in questi passaggi.

La precedente modifica del Registro di sistema non funzionerà in Word 2007 o Word 2016 o una versione successiva. Come già accennato, nessuna di queste versioni include l’opzione “Cerca con Bing”. (Word 2016 e versioni successive includono un’opzione “Ricerca intelligente”, ma nessuna opzione “Cerca con Bing”.) L’unico modo che siamo stati in grado di trovare per aggiungere una “Cerca con Google”

opzione al menu contestuale è aggiungere alcune macro piuttosto pesanti al tuo documento. Il seguente, ad esempio, è un set di macro che aggiungerà l’opzione su un sistema Word 2007. Questi dovrebbero essere aggiunti a un normale modulo VBA:

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

Per aggiungere l’opzione “Cerca con Google” al menu contestuale, è sufficiente eseguire la macro BuildControls. Se successivamente si desidera rimuovere l’opzione, è possibile eseguire la macro RemoveContextMenuItem.

Queste macro si basano sul lavoro svolto da Greg Maxey sul suo sito web, qui:

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

Come accennato, le macro funzioneranno solo su un sistema Word 2007. Per ragioni che Greg discute sul suo sito Web, non funzioneranno su Word 2016 o sistemi successivi senza alcune modifiche piuttosto importanti e potrebbero non essere stabili anche dopo le modifiche a causa dei cambiamenti che Microsoft continua a fare.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (166) si applica a Microsoft Word 2007, 2010, 2013, 2019 e Word in Office 365.