In this article, we will offer you 3 handy ways to search for words in online dictionaries or Wikipedia in your Word.
While looking through a document, there are chances that you will bump into words, or abbreviations that you know little about. In such scenario, it can’t be a better thing to search them online right in your Word without visiting websites manually.
Read on and we will show you how to achieve.
Method 1: Search for Abbreviations
- First of all, trigger VBA editor in Word by pressing “Alt+ F11”.
- Next, create a new module by clicking “Normal” first.
- Then click “Insert” tab on toolbar.
- And choose “Module” on the drop-down menu.
- Double click to open new module and paste following codes:
Sub OpenBrowser(strAddress As String, Menubar As Boolean, nHeight As Long, nWidth As Long, varResizable As Boolean) Dim objIEBrowser As Object ' Create and set the object settings. Set objIEBrowser = CreateObject("InternetExplorer.Application") With objIEBrowser .Menubar = Menubar .width = nWidth .height = nHeight .resizable = varResizable .Navigate strAddress .Visible = True End With End Sub Sub SearchForAbbreviations() Dim strText As String ' Make sure there is an abbreviation selected. If Selection.Type <> wdSelectionIP Then strText = Selection.Text strText = Trim(strText) Else MsgBox ("Please select an abbreviation first!") Exit Sub End If ' Search selected abbreviation with browser window opened in set size. OpenBrowser "http://www.abbreviations.com/" & strText, True, 555, 655, True End Sub
- Then, click “Save”.
- Next assign a button for this macro. For detailed information, you can refer to this article: How to Remove the Formatting of Pasted Texts with Macro and VBA in Your Word
- Now select word and click macro button. You shall see the result in the window popped up. And the window size id adjustable.
Method 2: Search for Words
If you prefer to search for words in a specific dictionary, such as Merriam-Webster, you can use the following macro.
- Firstly, install and run macro following steps in method 1.
- But you need to replace macro “SearchForAbbreviations” with this one:
Sub SearchForWordsInMerriamWebster() Dim strWord As String ' Make sure there is word selected. If Selection.Type <> wdSelectionIP Then strWord = Selection.Text strWord = Trim(strWord) Else MsgBox ("Please select a word first!") Exit Sub End If ' Look up selected word in Merriam-Webster. OpenBrowser "https://www.merriam-webster.com/dictionary/" & strWord, True, 555, 655, True End Sub
Here is the result:
Method 3: Search in Wikipedia
- Similarly, use all the same steps as in method 1 to install and run a macro.
- Next replace with following codes:
Sub SearchInWiki() Dim strText As String ' Make sure there is a text selected. If Selection.Type <> wdSelectionIP Then strText = Selection.Text strText = Trim(strText) Else MsgBox ("Please select text first!") Exit Sub End If ' Search selected in Wiki with browser window opened in set size. OpenBrowser "https://en.wikipedia.org/wiki/" & strText, True, 555, 655, True End Sub
Use Eligible Repairing Tool
It’s by no means a horrible thing to get a corrupt doc. But you shall never turn to an unqualified tool for repairing, for you can possibly get further damage on document. Instead, it’s important to stay cool and resort to an eligible product.
Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including xlsx recovery and pdf repair software products. For more information visit www.datanumen.com