How to change "SaveAsDialog" default location and disable cancel butto

[YACHTIE]

Hi all,
I have a macro that runs on the Sub Document_Open to try to remind the user to save the document (Word 2002) before they start editing it. I have found the following code that does this nicely, however I would like to disable the "Cancel" button and have the dialog window point to the user's My Documents" folder instead of the location the form was opened from.

Sub ShowSaveAsDialog()
    Dim dlgSaveAs As Dialog
    Set dlgSaveAs = Dialogs(wdDialogFileSaveAs)
    dlgSaveAs.Show
End Sub

Thanks

 

[PHV]

You may consider using the FileDialog object.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244