Prompt for document properties (2000+)

[Leif]

I want to prompt myself and other users to enter a Title into the document properties 'Title' field (manually accessed through File > Properties > Summary) when doing a Save As... to ensure the Title is updated as appropriate.

Is there a way to trap the BeforeSaveAs Event to prompt the user to check/edit the title?

Then I seem to be able to invoke the Properties window with Dialogs(wdDialogFileSummaryInfo).Display but it doesn't seem to accept any changes...

(I assume the Tools > Options > Save 'Prompt for document properties' option only applies if it is a new document with a previously un-edited Title?)

TIA.

[HansV]

Create the following macro:
<code>
Sub FileSaveAs()
Dialogs(wdDialogFileSummaryInfo).Show
Dialogs(wdDialogFileSaveAs).Show
End Sub
</code>
If you store this macro in a module in a document, it will hijack the File | Save As menu option in that document only.
If you store it in a module in Normal.dot, it will do so for all documents.

[Leif]

That simple, huh? Thanks <img src=/S/grin.gif border=0 alt=grin width=15 height=15>

I take it I don't need to actually insert a module - it seems to work OK just inserted in ThisDocument...?

[HansV]

Although the code will work if placed in ThisDocument, I'd still recommend storing it in a standard module.
If things go wrong, you can delete standard modules.
It is not possible to delete ThisDocument. I'd only use it for the Document events Document_New, Document_Open and Document_Close.

[Leif]

Gotcha. Thanks again.