При работе с документом Льюис может выбрать слово или фразу, щелкнуть по нему правой кнопкой мыши и выбрать параметр «Искать с помощью Bing». Ему не нравятся результаты поиска Bing, и он предпочел бы поиск с помощью другой поисковой системы, например Google. Льюис интересуется, есть ли способ добавить другие поисковые системы в контекстное меню или, возможно, изменить параметр «Поиск с помощью Bing», чтобы использовать другую поисковую систему.

Сам факт, что у Льюиса есть опция «Искать с помощью Bing» в контекстном меню, вызываемом правой кнопкой мыши, говорит мне, что он использует Word 2010 или Word 2013. Этот конкретный вариант не существует ни в Word 2007, ни в Word 2016, ни в более поздних версия.

Как в Word 2010, так и в Word 2013 вы можете отредактировать реестр Windows, изменив параметр «Поиск с помощью Bing». Редактировать реестр следует осторожно, так как одна ошибка может привести к непригодности для использования системы. (Если вам нужно вспомнить, как редактировать реестр, включая то, как запустить редактор реестра, link: / windows-Editing_the_Windows_Registry [см. Этот совет на сайте WindowsTips].) Выполните следующие действия, чтобы внести изменения:

  1. Закройте Word.

  2. Запустите редактор реестра.

  3. Найдите и выберите следующий ключ данных. (Этот ключ данных, как показано ниже, предназначен для Word 2013. Если вы используете Word 2010, измените 15.0 на 14.0.)

  4. Выберите Edit | Новый | Строковое значение. Редактор реестра добавляет новое строковое значение в правую часть реестра и позволяет сразу же ввести его имя.

  5. Назовите новое строковое значение «SearchProviderName» (без кавычек).

  6. Щелкните правой кнопкой мыши только что добавленное строковое значение и выберите «Изменить» в появившемся контекстном меню. Редактор реестра отображает диалоговое окно «Изменить строку».

  7. В поле Value Data введите «Google» (без кавычек)

  8. Щелкните ОК. Информация в редакторе реестра обновлена.

  9. Снова выберите Edit | Новый | Строковое значение. Редактор реестра добавляет еще одно новое строковое значение в правую часть реестра, и вы снова можете изменить его имя.

  10. Назовите новое строковое значение «SearchProviderURI» (без кавычек).

  11. Щелкните правой кнопкой мыши только что добавленное строковое значение и выберите «Изменить» в появившемся контекстном меню. Редактор реестра отображает диалоговое окно «Изменить строку».

  12. 12. В поле «Данные значения» введите «https://www.google.com/search?q=»

(опять же без кавычек).

  1. Щелкните ОК. Информация в редакторе реестра обновлена.

  2. Закройте редактор реестра.

  3. Перезапустите Word.

Теперь идите и выберите текст. Когда вы щелкаете по нему правой кнопкой мыши, пункт контекстного меню меняется с «Поиск с помощью Bing» на «Поиск с помощью Google». Если в какой-то момент (и по какой-то причине) вы захотите прекратить использовать Google и снова начать использовать Bing, просто удалите две записи реестра, которые вы создали на этих шагах.

Вышеупомянутая модификация реестра не будет работать в Word 2007, Word 2016 или более поздней версии. Как уже упоминалось, ни одна из этих версий не включает опцию «Поиск с помощью Bing». (Word 2016 и более поздние версии включают параметр «Умный поиск», но не параметр «Поиск с помощью Bing».) Единственный способ, который мы смогли найти, — добавить «Поиск с помощью Google»

в контекстном меню можно добавить в документ несколько довольно объемных макросов. Ниже, например, приведен набор макросов, которые добавят параметр в систему Word 2007. Их следует добавить в обычный модуль 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

Чтобы добавить параметр «Поиск в Google» в контекстное меню, просто запустите макрос BuildControls. Если позже вы захотите удалить эту опцию, вы можете запустить макрос RemoveContextMenuItem.

Эти макросы основаны на работе, проделанной Грегом Макси на его веб-сайте, здесь:

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

Как уже упоминалось, макросы будут работать только в системе Word 2007. По причинам, которые Грег обсуждает на своем веб-сайте, они не будут работать в Word 2016 или более поздних версиях без некоторых довольно серьезных изменений, и они могут быть нестабильными даже после изменений из-за изменений, которые Microsoft продолжает вносить.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (166) относится к Microsoft Word 2007, 2010, 2013, 2019 и Word в Office 365.