User education is the best plan - but I suppose you could intercept the
print command and force the users to enter the data - but it would be tricky
to implement and would be fairly simple to work around. Something along the
lines of the following saved in a global template should work. The example
prompts for the document title and places it in the appropriate document
property variable.
If macros of these names appear in the users' normal.dot files then those in
the add-in will be replaced by the ones in normal.dot. It is not a good plan
to mess with users' normal.dot files.
This macro disables the option to use the built-in properties dialog.
Sub FileSave()
Dim myTitle As String
Dim saveProp As Boolean
saveProp = Options.SavePropertiesPrompt
Options.SavePropertiesPrompt = False
start:
myTitle = InputBox("Enter document title")
If myTitle = "" Then GoTo UnFilled:
ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle) = myTitle
ActiveDocument.Save
Options.SavePropertiesPrompt = saveProp
Exit Sub
UnFilled:
MsgBox ("The dialog must be completed")
GoTo start:
End Sub
Sub FileSaveAs()
Dim myTitle As String
Dim saveProp As Boolean
saveProp = Options.SavePropertiesPrompt
Options.SavePropertiesPrompt = False
start:
myTitle = InputBox("Enter document title")
If myTitle = "" Then GoTo UnFilled:
ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle) = myTitle
Dialogs(wdDialogFileSaveAs).Show
Options.SavePropertiesPrompt = saveProp
Exit Sub
UnFilled:
MsgBox ("The dialog must be completed")
GoTo start:
End Sub
http://www.gmayor.com/installing_macro.htm
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site
www.gmayor.com
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>