Create a macro named Autonew in the template from which the document is
being created that contains the following code:
Dim docname As String, fpath As String
GetName:
docname = InputBox("Enter the name under which this document is to be
saved.", "Name File")
If docname = "" Then GoTo GetName
fpath = Options.DefaultFilePath(wdDocumentsPath) & "\"
If Dir(fpath & docname & ".doc") = "" Then
ActiveDocument.SaveAs docname
Else
MsgBox "A file with that name already exists. Please enter another
name."
GoTo GetName
End If
--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP
Randy said:
Trying to create a FILLIN window or some other prompt to create a value
for FILENAME other than clicking and saving the usual way..............i am
trying to make this idiot proof.