Use:
Dim Fkill As String
Dialogs(wdDialogFileSaveAs).Show
With ActiveDocument
Fkill = .FullName
.SaveAs .Name & " " & Format(Date, "yyyy-mm-dd")
End With
Kill Fkill
--
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
"janey" wrote in message
...
I think I must be missing something!
I want to use this macro in my office templates only.
I started with just one of them e.g. Office1.dot (which I brought over
from Word 2003 to 2007).
I created a macro called FileSaveAs:
Sub FileSaveAs()
'
' FileSaveAs Macro
' Saves a copy of the document in a separate file
'
With Dialogs(wdDialogFileSaveAs)
If .Display Then
With ActiveDocument
.saveas .Name & " " & Format(Date, "yyyy-mm-dd")
End With
End If
End With
End Sub
I then closed the template and opened a new document based on it. When I
pressed Save and put in a file name, e.g. Test, I got a file called
"Document1 2010-02-28.docx
How do I get this to be: Test 2010-02-28.docx please?
When I have this right, do I have to put the same macro in my other office
templates individually?
"Graham Mayor" wrote in message
...
Instead of naming it FileSaveAs() call it something else and run it from
a toolbar button or suitable keyboard shortcut.
or
Insert the FileSaveAs macro only in the template that requires it - and
not the normal template.
--
Graham Mayor - Word MVP
My web site www.gmayor.com
Word MVP web site http://word.mvps.org
"janey" wrote in message
...
I was very interested in this reply as I save documents in this way so it
will save me having to put the date in each time I create a document.
However, is there a way of NOT running this macro - e.g. if I am
creating a template which does not need to have the date in the name?
"Doug Robbins - Word MVP" wrote in message
...
Use a macro containing the following commands:
With Dialogs(wdDialogFileSaveAs)
If .Display Then
With ActiveDocument
.SaveAs Format(Date, "yyyy-mm-dd") & " " & .Name
End With
End If
End With
If you create the macro with the name of Sub FileSaveAs() in your
normal.dot template or in an add-in, it will run whenever the
FileSaveAs command is used.
--
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
wrote in message
...
I have some questions hopefully someone can assist.
I want to save my word documents by default in the d:\path location
with the following format
"2010-02-26 File Name.doc "- I would like to insert the date
automatically.
Appreciate your assistance.