Macro to Save & Name New Documents Automatically

When you start a new document in Word, it is a good idea to save and name it as soon as you begin working. Since you are going to have to select File / Save As and give the file a name anyway, create a macro to prompt you for the name as soon as the document opens.

To create the macro:

1. Select Tools / Macro / Macros and type in AutoNew.
2. Click the arrow at the right side of the Macros Available In list box and select Normal.dot (Global Template).
3. Click Create and type in (or copy and paste directly from this post) the two-line macro below between the name of the macro and End Sub:

FName$ = InputBox$("What do You Want to Name This File?", "New File")
ActiveDocument.SaveAs FName$, wdFormatDocument

4. Go to File and click save to Normal, then File and click option to return to Word.
5. Now when you open a new document with Ctrl + N (or your mouse) Word will automatically present a dialog box for your document name.
6. Enter a name without the extension. Word will automatically append the extension .doc to your filename.
7. Press Enter to close the dialog box and save the document. The Title Bar will reflect the new name.

The macro name AutoNew will automatically run the macro; there is no need to assign a keyboard shortcut.

NOTE: Files are automatically saved to the last Folder you had open. When you open Word and save the first document, Save defaults to My Documents (unless you changed the default to another folder location). When you go to File/Open and select another folder in the Look In box, the default Save is now to that folder.

If you don't want the macro to save in the current folder selected, just click on Cancel, then End and save as you normally would in the chosen folder.

(Quoted from Tips 'N Techniques in MS Word 97/2000/2002)

~