هنگام کار در یک سند، لوئیس می تواند یک کلمه یا عبارت را انتخاب کند، روی آن کلیک راست کرده و گزینه «جستجو با بینگ» را انتخاب کند. او از نتایج جستجوی بینگ راضی نیست و ترجیح می دهد با موتورهای جستجوی دیگری مانند گوگل جستجو کند. لوئیس به این فکر می کند که آیا راهی برای اضافه کردن موتورهای جستجوی دیگر به منوی کلیک راست وجود دارد یا شاید گزینه «جستجو با بینگ» را برای استفاده از موتور جستجوی دیگری تغییر دهید.
همین واقعیت که لوئیس گزینه «جستجو با بینگ» را در منوی زمینه کلیک راست دارد، به من می گوید که او از Word 2010 یا Word 2013 استفاده می کند. این گزینه خاص در Word 2007 یا Word 2016 یا نسخه های بعدی وجود ندارد. نسخه
در Word 2010 و Word 2013 می توانید رجیستری ویندوز را ویرایش کنید تا گزینه "جستجو با Bing" را تغییر دهید. ویرایش رجیستری باید با دقت انجام شود، زیرا یک گام اشتباه می تواند منجر به یک سیستم غیرقابل استفاده شود. (اگر در مورد نحوه ویرایش رجیستری، از جمله نحوه راه اندازی ویرایشگر رجیستری نیاز دارید، به این نکته در
WindowsTips
سایت.) مراحل زیر را برای انجام اصلاح دنبال کنید:
HKEY_CURRENT_USERSoftwareMicrosoftOffice15.0WordData
- خروج از Word
- ویرایشگر رجیستری را راه اندازی کنید.
- کلید داده زیر را بیابید و انتخاب کنید. (این کلید داده، همانطور که در زیر نشان داده شده است، برای Word 2013 است. اگر از Word 2010 استفاده می کنید، 15.0 را به 14.0 تغییر دهید.)
- ویرایش | را انتخاب کنید جدید | مقدار رشته. ویرایشگر رجیستری یک مقدار رشته جدید به سمت راست رجیستری اضافه می کند و به شما امکان می دهد بلافاصله نام آن را وارد کنید.
- مقدار رشته جدید را «SearchProviderName» (بدون نقل قول) نامگذاری کنید.
- بر روی مقدار رشته جدید اضافه شده راست کلیک کرده و از منوی Context حاصل گزینه Modify را انتخاب کنید. ویرایشگر رجیستری کادر محاوره ای Edit String را نمایش می دهد.
- در قسمت Value Data "Google" را وارد کنید (بدون نقل قول.)
- روی OK کلیک کنید. اطلاعات موجود در ویرایشگر رجیستری به روز می شود.
- دوباره Edit | را انتخاب کنید جدید | مقدار رشته. ویرایشگر رجیستری مقدار رشته جدیدی را به سمت راست رجیستری اضافه می کند و می توانید دوباره نام آن را تغییر دهید.
- مقدار رشته جدید را «SearchProviderURI» (بدون نقل قول) نامگذاری کنید.
- بر روی مقدار رشته جدید اضافه شده راست کلیک کرده و از منوی Context حاصل گزینه Modify را انتخاب کنید. ویرایشگر رجیستری کادر محاوره ای Edit String را نمایش می دهد.
- 12. در قسمت Value Data "https://www.google.com/search?q=" را وارد کنید (دوباره بدون نقل قول).
- روی OK کلیک کنید. اطلاعات موجود در ویرایشگر رجیستری به روز می شود.
- ویرایشگر رجیستری را ببندید.
- Word را مجدداً راه اندازی کنید.
اکنون، پیش بروید و متنی را انتخاب کنید. وقتی روی آن راست کلیک می کنید، گزینه منوی زمینه از «جستجو با بینگ» به «جستجو با Google» تغییر کرده است. اگر در نقطه ای (و به دلایلی) می خواهید استفاده از Google را متوقف کنید و دوباره استفاده از Bing را شروع کنید، فقط دو ورودی رجیستری را که در این مراحل ایجاد کرده اید حذف کنید.
اصلاح رجیستری فوق در Word 2007 یا Word 2016 یا نسخه های جدیدتر کار نخواهد کرد. همانطور که قبلا ذکر شد، هیچ یک از این نسخه ها گزینه "جستجو با بینگ" را ندارند. (Word 2016 و نسخه های بعدی شامل گزینه "Smart Lookup" است، اما گزینه "Search with Bing" وجود ندارد.) تنها راهی که ما توانستیم برای افزودن گزینه "Search with Google" به منوی Context پیدا کنیم این است که چند ماکرو نسبتاً سنگین را به سند خود اضافه کنید. به عنوان مثال، موارد زیر مجموعه ای از ماکروها هستند که این گزینه را در سیستم 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» به منوی Context، به سادگی ماکرو BuildControls را اجرا کنید. اگر بعداً می خواهید این گزینه را حذف کنید، می توانید ماکرو RemoveContextMenuItem را اجرا کنید.
این ماکروها بر اساس کارهای انجام شده توسط گرگ ماکسی در وب سایت او، در اینجا:
همانطور که گفته شد، ماکروها فقط روی سیستم Word 2007 کار خواهند کرد. به دلایلی که گرگ در وب‌سایت خود مطرح می‌کند، آن‌ها بر روی سیستم‌های Word 2016 یا جدیدتر بدون تغییرات نسبتاً عمده کار نخواهند کرد و ممکن است حتی پس از اصلاحات به دلیل تغییراتی که مایکروسافت به انجام آن‌ها ادامه می‌دهد، پایدار نباشند.
