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 WithEnd SubSub 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 If you can’t sync with iTunes and want to rescue data from a disable iPhone, you could try Gihosoft iPhone Data Recovery. Also feel free to ask questions on the iDevice is disabled error in the comments section below.
- 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, TrueEnd 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.
Sponsor ads:
Gihosoft Free iPhone Data Recovery:iphonerecovery.com
Free iPhone Data Recovery Software for Windows/Mac
Recover up to 12+ types of files, including contacts, SMS, photos, WhatsApp, Viber, notes, etc.
Restore lost data from iOS devices directly or from iTunes and iCloud backup
Recover iPhone data lost due to iOS upgrade/jailbreak, accidental deletion, device lost or broken
Support all the latest iPhone, iPad and iPod Touch
Both Free and Pro version.
If you lost data after you updated to a new iPhone, you can always use Gihosoft iPhone Data Recovery to get the data back from the old iPhone or backup.
Worth reading:download youtube 1080p
If you use android phones, please choose Gihosoft Android Data Recovery
Jihosoft Android Data Recovery: the best Android Data Recovery software for Windows and Mac to recover deleted contacts, messages, photos, videos, WhatsApp and etc from Android
This comment has been removed by the author.
ReplyDelete