Cuando trabaja en un documento, Lewis puede seleccionar una palabra o frase, hacer clic derecho sobre ella y elegir la opción «Buscar con Bing». No está contento con los resultados de búsqueda de Bing y preferiría buscar con un motor de búsqueda diferente, como Google. Lewis se pregunta si hay alguna manera de agregar otros motores de búsqueda al menú del botón derecho o, quizás, cambiar la opción «Buscar con Bing» para usar un motor de búsqueda diferente.

El mero hecho de que Lewis tenga una opción «Buscar con Bing» en el menú contextual del botón derecho me dice que está usando Word 2010 o Word 2013. Esta opción en particular no existe ni en Word 2007 ni en Word 2016 ni en versiones posteriores. versión.

Tanto en Word 2010 como en Word 2013, puede editar el Registro de Windows para modificar la opción «Buscar con Bing». La edición del Registro debe realizarse con cuidado, ya que un paso en falso podría resultar en un sistema inutilizable. (Si necesita un repaso sobre cómo editar el Registro, incluido cómo iniciar el Editor del Registro, enlace: / windows-Editing_the_Windows_Registry [consulte este consejo en el sitio WindowsTips].) Siga estos pasos para realizar la modificación:

  1. Salir de Word.

  2. Inicie el editor del registro.

  3. Busque y seleccione la siguiente clave de datos. (Esta clave de datos, como se muestra a continuación, es para Word 2013. Si está usando Word 2010, cambie 15.0 a 14.0.)

  4. Elija Editar | Nuevo | Valor de cadena. El Editor del Registro agrega un nuevo valor de cadena al lado derecho del Registro y le permite ingresar su nombre inmediatamente.

  5. Nombra el nuevo valor de cadena «SearchProviderName» (sin las comillas).

  6. Haga clic con el botón derecho en el valor de cadena recién agregado y elija Modificar en el menú contextual resultante. El Editor del registro muestra el cuadro de diálogo Editar cadena.

  7. En el campo Información del valor, ingrese «Google» (sin las comillas).

  8. Haga clic en Aceptar. Se actualiza la información del Editor del registro.

  9. Vuelva a elegir Editar | Nuevo | Valor de cadena. El Editor del Registro agrega otro valor de cadena nuevo en el lado derecho del Registro y puede, nuevamente, cambiar su nombre.

  10. Nombra el nuevo valor de cadena «SearchProviderURI» (sin las comillas).

  11. Haga clic con el botón derecho en el valor de cadena recién agregado y elija Modificar en el menú contextual resultante. El Editor del registro muestra el cuadro de diálogo Editar cadena.

  12. 12. En el campo Información del valor, ingrese «https://www.google.com/search?q=»

(nuevamente, sin las comillas).

  1. Haga clic en Aceptar. Se actualiza la información del Editor del registro.

  2. Cierre el editor del registro.

  3. Reinicie Word.

Ahora, continúe y seleccione un texto. Cuando hace clic con el botón derecho del ratón en él, la opción del menú contextual ha cambiado de «Buscar con Bing» a «Buscar con Google». Si en algún momento (y por alguna razón) desea dejar de usar Google y volver a comenzar a usar Bing, simplemente elimine las dos entradas del Registro que creó en estos pasos.

La modificación del Registro anterior no funcionará en Word 2007 o Word 2016 o una versión posterior. Como ya se mencionó, ninguna de estas versiones incluye la opción «Buscar con Bing». (Word 2016 y versiones posteriores incluyen una opción «Búsqueda inteligente», pero no la opción «Buscar con Bing»). La única forma que hemos podido encontrar es agregar una «Búsqueda con Google»

La opción del menú contextual es agregar algunas macros bastante importantes a su documento. El siguiente, por ejemplo, es un conjunto de macros que agregarán la opción en un sistema Word 2007. Estos deben agregarse a un módulo 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

Para agregar la opción «Buscar con Google» al menú contextual, simplemente ejecute la macro BuildControls. Si más tarde desea eliminar la opción, puede ejecutar la macro RemoveContextMenuItem.

Estas macros se basan en el trabajo realizado por Greg Maxey en su sitio web, aquí:

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

Como se mencionó, las macros solo funcionarán en un sistema Word 2007. Por las razones que Greg analiza en su sitio web, no funcionarán en Word 2016 o sistemas posteriores sin algunas modificaciones bastante importantes, y es posible que no sean estables incluso después de las modificaciones debido a los cambios que Microsoft continúa haciendo.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (166) se aplica a Microsoft Word 2007, 2010, 2013, 2019 y Word en Office 365.