Word Doesn't Call Document Properties Dialog on Save 1

[gallas]

We have a macro that opens a template runs some stuff and then opens the SaveAs dialog to give the user opportunity to save before starting work. We want the document properties dialog to pop up on save but cannot find out how to achieve this. Below is this part of the code. Even with SavePropertiesPrompt = True we have no joy. Any ideas?

Sub SetEnvSave()

Application.DisplayStatusBar = True
ActiveWindow.View.ShowBookmarks = False
Options.SavePropertiesPrompt = True

Set aDialog = Dialogs(wdDialogFileSaveAs)
aDialog.Show
' dlgAnswer = Dialogs(wdDialogFileSaveAs).Show

' The following updates filename field in doc

Selection.WholeStory
Selection.Fields.Update
Selection.Collapse

End Sub

 

[ilses]

Maybe you can use this:

Set bDialog = Dialogs(wdDialogFileSummaryInfo)
bDialog.Show

ilses

 

[gallas]

Tks Ilses, code works fine. A pity that company field is not shown in summary. There doesn't seem to be a dialog for all summary / all file properties.

 

[james33]

Dear gallas,
I don't know whether this might help:

http://download.microsoft.com/download/office97dev/Utility/2/WIN98/EN-US/Dsofile.exe

Regards Jim