WD97: Run Time Error 4366 Using Application.Run Command (190235)

MORE INFORMATION

In the online Help, the Run method states that you can use the template name in the Macroname argument string, and then it shows the following examples as valid statements:

   Application.Run "Normal.Module1.MAIN"
   Application.Run "MyProject.MyModule.MyProcedure"
   Application.Run "'My Document.doc'!ThisModule.ThisProcedure"
				

Visual Basic for Applications assigns names to macros in the following order:

   project.module.procedure.
				

When Visual Basic for Applications accesses the Microsoft Word Object model, a project can be either a template or document with stored procedures. In Visual Basic for Applications, the Word projects are named in the following manner:

   Normal          - all modules stored in the Normal.dot

   TemplateProject - all modules store in the first file in the Startup
                     folder (if more than one template is in the startup
                     folder, Word uses the one that was copied
                     to the folder first and not by the alphabetical
                     listing order).

   Project         - additional startup templates, the template the open
                     file is based on, or an open saved document with a
                     module.
				

The following illustration describes how Visual Basic for Applications handles Microsoft Word macros of the same name or macros and modules of the same name in different template and document projects that are active.

In Microsoft Word, if you open a document named MyDoc.doc that is based on the template MyTemp.dot, both documents have a module called "Newmacros" and a macro called "MyMacro." At Startup, a template called "MyStart.dot" loads with the "Normal.dot" global template. Both of these templates have a module called "Newmacros", and there is a macro called "MyMacro" in the module.

With the three templates and one document active in Microsoft Word, when the "Macro" dialog box appears, you see the following lines of code:

   Normal.NewMacros.Mymacro
   Project.NewMacros.Mymacro
   Project1.NewMacros.Mymacro
   TemplateProject.NewMacros.Mymacro
				

Open the Visual Basic Editor by pressing ALT+F11. Then press CTRL+R to view the following in Project Explorer:

   Normal(Normal)
   Project(MyTemp)
   Project(MyDoc)
   TemplateProject(MyStart)
				

If you want to run the macro in MyStart.dot, write your code as follows:

   Application.Run "TemplateProject.NewMacro.macro1"
				

   Normal.NewMacros.Mymacro =  Normal.dot
   Project.NewMacros.Mymacro =  MyTemp.dot
   Project1.NewMacros.Mymacro =  MyDoc.doc