File, SaveAs, "filename"?

[Senad Isanovic]

When I save the document (File/Save As), I'd like Word to suggest the
filename "nyfilename.doc" of the document in the save as dialogbox. How can
this be done? I know how to do this from the subroutine, but not from Word
File menu, Save AS..?



Sub SaveAsSub()

Dim oDlg As Dialog

Dim sPth As String

sPth = Options.DefaultFilePath(wdDocumentsPath) & "\"

Set oDlg = Dialogs(wdDialogFileSaveAs)

oDlg.Name = sPth & "myfilename.doc"

oDlg.Show

End Sub

 

[Jezebel]

Change the name of your sub to FileSaveAs.

 

[Senad Isanovic]

Yes, it works fine via File/SaveAs but not if I click on the Save button in
the toolbar, why is that?

 

[Jezebel]

Because that's FileSave, not FileSaveAs

Yes, it works fine via File/SaveAs but not if I click on the Save button
in the toolbar, why is that?