[ad_1]
\n<\/p>\n
In order to hijack the native “SaveAs” dialog in Word, you need to lever the Application-level event for We use the DocumentBeforeSave<\/code>, and then call the FileDialog manually, in order to validate the extension.<\/p>\n1. Create a standard code module and name it
modEventHandler<\/code>. Put the following code in it.<\/h2>\nOption Explicit\nPublic TrapFlag As Boolean\nPublic cWordObject As New cEventClass\n\n'You may not need these in a DOCM, but I needed to implement this in an ADD-IN\n\nSub TrapEvents()\nIf TrapFlag Then\n Exit Sub\nEnd If\nSet cWordObject.DOCEvent = Application\nTrapFlag = True\n\nEnd Sub\nSub ReleaseTrap()\nIf TrapFlag Then\n Set cWordObject.DOCEvent = Nothing\n Set cWordObject = Nothing\n TrapFlag = False\nEnd If\nEnd Sub\n<\/code><\/pre>\n2. Create a Class Module called
cEventClass<\/code> and put this code in the module:<\/h2>\nOption Explicit\nPublic WithEvents DOCEvent As Application\n\nPrivate Sub DOCEvent_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)\n' Do not prevent SAVEAS for *other* documents\nIf ObjPtr(Doc) <> ObjPtr(ThisDocument) Then\n Exit Sub\nEnd If\n\nIf SaveAsUI Then\n ' The user has invoked SAVE AS command , so we will hijack this and use our own FileDialog\n Call CustomSaveAs(Doc)\n ' Prevent duplicate appearance of the SAVEAS FileDialog\n Cancel = True\nEnd If\nEnd Sub\n\nPrivate Sub CustomSaveAs(ByRef Doc As Document)\nDim fd As FileDialog\nDim filename$\n\nSet fd = Application.FileDialog(msoFileDialogSaveAs)\nfd.Show\nIf fd.SelectedItems.Count = 0 Then Exit Sub\nfilename = fd.SelectedItems(1)\nIf Not Right(filename, 4) = \"docm\" Then\n ' ### DO NOT EXECUTE this dialog unless it matches our .DOCM file extension\n MsgBox \"This document should only be saved as a DOCM \/ Macro-Enabled Document\", vbCritical, \"NOT SAVED!\"\nElse\n fd.Execute\nEnd If\nEnd Sub\n<\/code><\/pre>\n3. In
ThisDocument<\/code> module, do the following code:<\/h2>\nPrivate Sub Document_Close()\nCall modEventHandler.ReleaseTrap\nEnd Sub\n\nPrivate Sub Document_Open()\nCall modEventHandler.TrapEvents\nEnd Sub\n<\/code><\/pre>\nHow Does This Work?<\/h2>\n
ThisDocument<\/code> raises the Document_Open<\/code> event which calls on the TrapEvents<\/code> procedure.<\/p>\nTrapEvents<\/code> procedure creates a WithEvents<\/code> instance of Word.Application<\/code> class, exposing additional events to automation. One of these is DocumentBeforeSave<\/code>.<\/p>\nDocumentBeforeSave<\/code> event to trap the SaveAs<\/code> operation. If the User has requested a SaveAs<\/code>, then we force the dialog with logic as created in CustomSaveAs<\/code> procedure. This uses simple logic to test the file extension provided, and prevents the document from being saved if it is not a DOCM extension. If the FileDialog does receive a valid DOCM extension, then we Execute<\/code> the dialog which saves the file as the new name.<\/p>\n<\/p><\/div>\n