[SarahBB]

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

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

I followed the instructions, and now the thesaurus toggles/closes when it's open when I hit Fn + Shift +F7. However, something is wrong because now when I hit Fn + Shift +F7, the thesaurus opens, but it only 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 different words I click with the mouse. Additionally, I still have to hit Fn before the Shift + F7 command or else that silly projector screen opens.

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

Many thanks!

[Stefan Blom[_3_]]

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.

--
Stefan Blom
Microsoft Word MVP




"SarahBB" wrote in message
...

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

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

I followed the instructions, and now the thesaurus toggles/closes when
it's open when I hit Fn + Shift +F7. However, something is wrong
because now when I hit Fn + Shift +F7, the thesaurus opens, but it only
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 different
words I click with the mouse. Additionally, I still have to hit Fn
before the Shift + F7 command or else that silly projector screen
opens.

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

Many thanks!




--
SarahBB