Create a new template and store it in a data folder as “PeculiarPowerpointPresentation.ppt”. Yes, that is a PowerPoint extension on a MSWord template.
In this new template create a public procedure:-
Code: Select all
Sub APeculiarMacro()
MsgBox "Hello!" & vbCrLf & "I am not a PowerPoint presentation."
End Sub
Reload Word.
Using Tools, Addins, browse to your “PeculiarPowerpointPresentation.ppt” and add it in to your stable.
You can now run the macro “APeculiarMacro”
This has to have some valid use; maybe hiding useful stuff in a file that the average person (a) can not open in PowerPoint and (b) would not think of loading in MSWord.
Cheers
Chris