WD: Macro to Test for an Existing Macro Name

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

SUMMARY

When you write macros in Word, it may be necessary to test for the existence of a macro before running the macro with the WordBasic ToolsMacro statement. If your macro does not check for the existence of a macro, you may receive one of the following error messages:

   There is no such macro.

MORE INFORMATION

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.

The following WordBasic macro uses the IsExecuteOnly function to test for an existing macro named "Test" in the global template file, Normal.dot:

   Sub Main
      On Error Goto errors
      MacroName$ = "Test"
      exe = IsExecuteOnly("Global:" + MacroName$)
      ToolsMacro .Name = MacroName$, .Run      'Run global macro if it exists
   errors:
      If err = 511 Then
         MsgBox Chr$(34) + MacroName$ + Chr$(34) + " macro does not exist"
   End Sub

   exe = IsExecuteOnly("Memo2:" + MacroName$)

REFERENCES

"Using WordBasic" by WexTech Systems, Inc., and Microsoft Corporation, page 246