WD2000: Error 4633 with AutoExec Macro That Calls Macro in Add-in

WORKAROUND

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements.
The following sample macro commands provide a means for working around this limitation by using the OnTime method to delay processing of a macro stored in a template add-in.

The When argument of the OnTime method specifies the time at which a macro is to be run. It can be a string that specifies a time (for example, "4:30 pm" or "16:30"), or it can be a serial number returned by a function, such as TimeValue or TimeSerial (for example, TimeValue("2:30 pm") or TimeSerial(14, 30, 00)). You can also include the date (for example, "6/30 4:15 pm" or TimeValue("6/30 4:15 pm")).

Use the sum of the return values of the Now function and either the TimeValue or TimeSerial function to set a timer to run a macro a specified amount of time after the statement is run. For example, use Now+TimeValue("00:05:30") to run a macro 5 minutes and 30 seconds after the statement is run.

The tolerance argument of the OnTime method specifies the maximum time (in seconds) that can elapse before a macro that wasn't run at the time specified by When is canceled. Macros may not always run at the specified time. For example, if a sort operation is under way or a dialog box is being displayed, the macro is delayed until Word has completed the task. If this argument is 0 (zero) or omitted, the macro is run regardless of how much time has elapsed since the time specified by When.

NOTE: The time to wait varies between faster and slower computers and may need to be adjusted appropriately.

Application.OnTime When:=Now() + TimeValue("00:00:3"), _
   Name:="MyProject.MyModule.MyMacro", Tolerance:=2