Check if macro is present?

[pnp]

Is there some way i can check if a macro is present.

We are on the way to deploying a global template, which contains some macro
code. Next step is then to integrate some code in our templates that calls
code in this global template.

But.... If someone for some reason hasn't received this global template,
Word will fail, complaining about the missing resource since it doesnt have
access to the function it calls.

Are there any way I (in the code) can test if the global template is
present, and then execute if present, and just cancel if it is not present.

My goal is to letting people be aware of the missing global template, but
not get any errors that opens the debug editor and so forth...

/Anders

 

[Jonathan West]

Hi pnp,

You can iterate through the Addins collection and see if the template you
need is listed in the addins, and if its Loaded property is True.

- If it is present and loaded, no action is needed
- It is present but not loaded, you can load it.
- If it is not present you can see if the file exists, and add it to the
Addins collection and load it.
- If the file doesn't exist, you issue a warning.

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

 

[pnp]

I found a solution somewhat similar. Inspired by KB 308340 i came up with
the following code:
The setup is:
MacroProject.Macro is a function found in a global template (maybe found)
The following code is placed in the template to a document, and runs when
the document is opened:

Private Sub Document_Open()
'Check if any references is broken
checkReference
End Sub

Sub checkReference()
Dim vbProj As VBProject 'This refers to the vbproject
Dim chkRef As Reference 'A reference

'Refer to the vbproject where the code is placed
Set chkRef = Me.VBProject

'Check through each reference to see if they are missing
For Each chkRef In vbProj.References
If chkRef.IsBroken Then
'Errorhandling - In my case a msgbox stating that the global
template is missing, and how to install it.
Exit Sub
End If
Next
'If no references where broken - call the method that calls the method
in the global template.
Call UpdateFields
Exit Sub

End Sub

Sub UpdateFields()
MacroProject.Macro ' Calls the code in the global template.
End Sub


The code takes advantage of word first compiling the method when calling it.
That is, if the sub UpdateFields is called, and the reference to MacroProject
is missing, a compile error will raise. But if the reference is missing and
the sub is never called no errors occur.

I hope the example is understandable - if anyone sees any problems with it
let me know.

/Anders

 

[Jonathan West]

Hi Anders

That will work, but if you plan to distribute the templates to other users,
I see a potential problem. If your add-in is going to be automatically
loaded as a result of being placed in the Startup folder, then be aware that
everybody's startup folder is different, since the startup folder is a
subfolder with the user profile. This is a problem because references to
other templates are hard-coded to the full pathname of the template, so if
the referenced add-in is somewhere else, it won't be found.

Depending on what you have in the add-in there are two alternatives that
come to mind.

1. Don't set references, but instead call routines in the add-in by using
the Application.Run method. This limits you to a certain extent - you cannot
directly call functions, forms or classes in the add-in, but only public
Subs (with or without parameters) in regular modules.

2. Don't use a template as an add-in, but instead get the code into a
development tool such as VB6 where you can create an ActiveX DLL. Once the
DLL is registered, it can be used more or less like any class module.

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org