Hi all,
I am working on a template. Users should open this template and then make some changes and save it as "Invoice 01", "Invoice 02", "Invoice 03", etc.
Is there any way to change the name (usually "doc1.doc") that Word suggests in the "File-Save As" window to something different?
Thank you all for any help,
Re: Auto SaveAs with certain filename
I have much the same question:
DOES ANYONE KNOW HOW TO CHANGE THE DEFAULT FILENAME THAT APPEARS IN THE SAVE AS DIALOG BOX IN Microsoft WORD?
My goal is to present the PossibleFileName to the user in the SaveAs dialog box. PossibleFileName will be generated by other parts of the code. The user can then view and change this to a ChosenFileName within the SaveAs dialog box.
'The following code will display the Microsoft Word Save As dialog box
'but unfortunately doesn't allow the default file name to be changed.
'Its default is the filename of the document which contains the control
'which launched it.
Dialogs(wdDialogFileSaveAs).Show
'The following code will save the document, but unfortunately doesn't
'show the Save As dialog box first.
ActiveDocument.SaveAs ChosenFileName, xlDocumentNormal
' IN MICROSOFT EXCEL, THIS IS RELATIVELY EASY TO DO
' WITH CODE LIKE THE FOLLOWING:
ChosenFileName = Application.GetSaveAsFilename_
(PossibleFileName, "Excel Files (*.xls),*.xls,", , "Title")
ActiveWorkbook.SaveAs ChosenFileName, xlWorkbookNormal
The GetSaveAsFileName application does not work in Word.
Does Anyone know of how to control the Dialogs(wdDialogFileSaveAs) in Word to change the filename it first shows?
Re: Auto SaveAs with certain filename
If you look in help you will see that the FileSaveAs dialog can take the following
arguments.
Quote
Name, Format, LockAnnot, Password, AddToMru, WritePassword, RecommendReadOnly, EmbedFonts, NativePictureFormat, FormsData, SaveAsAOCELetter, WriteVersion, VersionDesc
Perhaps something like this.
Re: Auto SaveAs with certain filename
Thank you,
I found that this works:
With Dialogs(wdDialogFileSaveAs)
.Name = PossibleFileName 'whatever you want it to display under FileName in the DialogFileSaveAs dialog box.
.Display 'displays the dialog box - at this point the user can make changes.
.Execute 'actually saves it with whatever final filename the user chooses. By default, its a .doc file extension
End With
'maybe there's a cleaner way to get the name back that the user picked, but this works:
'returns the name including the .doc extension
ChosenFileNameandExtension = ActiveDocument.Name
'gets character length of string counting the .doc extension
LengthofChosenFileNameandExtension = Len(ChosenFileNameandExtension)
'trims off the four characters consisting of ".doc"
ChosenFilename = Left(ChosenFileNameandExtension, LengthofChosenFileNameandExtension - 4)
MsgBox ChosenFilenameDon’t have an account yet? Register yourself now and be a part of our community!