Save open document with different name

[plektrum]

I need a macro that saves an already open document with a different filename than is currently used (not as a new document). Is this possible?

[fumei]

Why not just do a Save As?

[plektrum]

I need to keep the number of documents as low as possible. Maybe I need to use save as and then delete the original document?

[gmayor]

You don't need Word for this.
Just rename it using Windows Explorer.
Right Click > Rename
or F2

[James88]

As above, you don't need a macro to do this but obviously one could do it if there's a need to.

Would the macro need to say do a save as and then say delete the original file once it's closed?

[vbee]

Hi,

I use this macro when I am working on long documents and I want to be sure that I have multiple, time-stamped versions of the document as I progress through it. It gives me the ability to minimize data loss in case Word hangs etc. It saves your current document as a word file whose name is a date_time timestamp:



MYFOLDER = ActiveDocument.Path & "\"
MYSTRING = Format(Now(), "yyyymmddhhmmss")


MYSTRING1 = Left(MYSTRING, 8)
MYSTRING2 = Right(MYSTRING, 6)
MYSTRING3 = MYSTRING1 & "_" & MYSTRING2


strDOCNAME = MYFOLDER & MYSTRING3 & ".docx"
ActiveDocument.SaveAs2 FileName:=strDOCNAME, FileFormat:=wdFormatDocumentDefault

I hope this helps

cheers

[gmayor]

If you want multiple time stamped copies (which incidentally was not what was requested) take a look at http://www.gmayor.com/SaveVersionsAdd-In.htm.
As James88 said, to do what the OP asked for requires a two stage process, to save with an alternative name (checking to ensure that the new name didn't exist as a macro would otherwise simply overwrite the original) then delete the previously named file. If you just want a file with a new name, it is much simpler to save and close then rename it from the file dialog.