Auto SaveAs with certain filename

[Balangan]

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,

[macromike]

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?

[norie]

If you look in help you will see that the FileSaveAs dialog can take the following
arguments.

Name, Format, LockAnnot, Password, AddToMru, WritePassword, RecommendReadOnly, EmbedFonts, NativePictureFormat, FormsData, SaveAsAOCELetter, WriteVersion, VersionDesc

Perhaps something like this.

With Dialogs(wdDialogFileSaveAs)
    .Name = "mydoc.doc"
    .Show
End With

[macromike]

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 ChosenFilename