Fix Thesaurus Macro in Word 2013

[SarahBB]

I have a Lenovo Thinkpad Yoga, and I am new to Word 2013. In all othe
versions of Word, the shortcut for the thesaurus was shift + F7. On m
Lenovo, the shortcut is Fn + Shift + F7. If I simply hit shift + F7, i
opens the computer's projector. I wanted to create a macro that woul
toggle the thesaurus, so I could close it without using the mouse.
found the following code and instructions in another forum:

Sub ThesaurusToggle()
On Error GoTo OpenT
CommandBars("Thesaurus").Visible = No
(CommandBars("Thesaurus").Visible)
GoTo EndIt
OpenT:
Application.Run MacroName:="Thesaurus"
EndIt:
End Sub

I followed the instructions, and now the thesaurus toggles/closes whe
it's open when I hit Fn + Shift +F7. However, something is wron
because now when I hit Fn + Shift +F7, the thesaurus opens, but it onl
displays synonyms for the last word I used BEFORE I created the macro.
It will not give synonyms for any new words no matter how many differen
words I click with the mouse. Additionally, I still have to hit F
before the Shift + F7 command or else that silly projector scree
opens.

How do I fix the thesaurus to work again while still keeping the toggl
feature in use? Please advise.

Many thanks

 

[Stefan Blom]

The fact that you now have to hold the Fn key is a caused by settings on
your laptop. Check the documentation to find out if/how it can be changed.

To display the old Thesaurus dialog box of Word 2003 (I'm guessing here,
because I don't remember which version was the last to use the dialog box as
the default), you can use the following macro:

DisplayOldThesaurusDialog()
On Error Resume Next
Application.Run "ToolsThesaurus"
End Sub

See also http://www.gmayor.com/installing_macro.htm.

You can close the dialog box with ESC.