Macro to Run Macro or Insert Glossary, as in Word for MS-DOS

• Microsoft Word for Windows, versions 2.0, 2.0a, 2.0a-CD, 2.0b, 2.0c

SUMMARY

In Microsoft Word for MS-DOS, the F3 key is used to run a macro or insert a glossary entry whose name matches the word to the left of the insertion point. The following macro in Word for Windows can be assigned to the F3 key to achieve the same behavior.

WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this macro code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.

Sub MAIN
WordLeft 1, 1                'Select word to left of insertion point
name$ = Selection$()                      'Assign word to a variable
If GetGlossary$(name$, 0) <> "" Then        'Test for glossary entry
 EditClear
 EditGlossary .Name = name$           'If true, insert glossary entry
Else
 On Error Goto errors
 exe = IsExecuteOnly("Global:" + name$)
 EditClear
 ToolsMacro .Name = name$, .Run         'Run global macro if it exists

End Sub

Reference(s):

"Using WordBasic" by WexTech Systems, Inc., and Microsoft Corporation, Microsoft Press, 1992