3 Handy Ways to Search for Words in Online Directories or Wikipedia in Your Word

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.Search for Words in Online Directories or Wikipedia

Read on and we will show you how to achieve.

Method 1: Search for Abbreviations

  1. First of all, trigger VBA editor in Word by pressing “Alt+ F11”.
  2. Next, create a new module by clicking “Normal” first.
  3. Then click “Insert” tab on toolbar.
  4. And choose “Module” on the drop-down menu.Click "Normal"->Click "Insert"->Click "Module"
  5. 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
  1. Then, click “Save”.Paste Codes->Click "Save"
  2. 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
  3. Now select word and click macro button. You shall see the result in the window popped up. And the window size id adjustable.Result of Searching for Abbreviation

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.

  1. Firstly, install and run macro following steps in method 1.
  2. 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:Result of Searching in Merriam-Webster

Method 3: Search in Wikipedia

  1. Similarly, use all the same steps as in method 1 to install and run a macro.
  2. 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.

Author Introduction:

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

Comments are closed.