#1
|
|||
|
|||
Rename Document & Save
I would like to create a macro that renames an open document, and saves the newly named document to the same folder as the open document.
For example, the file I have open is located in H:\, and the file name is 00000 Frame aa 0.docx. After running the macro, the new file name should be: 00000 Frame aa 01.docx Or, the open document's file name is 12345 de Ville cv 01.docx, and the new file name should be 12345 de Ville cv 02.docx. In essence, the new file name should be very similar to the open document's, except that the number before .docx should be one higher. To add a wrinkle, I would also like the macro to display a warning if the new document name is already in the folder. Thanks! Daniel |
#2
|
||||
|
||||
Try:
Code:
Sub ReSave() Dim StrName As String, StrExt As String, StrNum As String, Rslt With ActiveDocument StrName = .Name StrExt = Right(StrName, Len(StrName) - InStrRev(StrName, ".") + 1) StrName = Left(StrName, InStrRev(StrName, ".") - 1) StrNum = Format(Split(StrName, " ")(UBound(Split(StrName, " "))) + 1, "00") StrName = Left(StrName, InStrRev(StrName, " ")) StrName = .Path & "\" & StrName & StrNum & StrExt If Dir(StrName) <> "" Then Beep Rslt = MsgBox("The new filename:" & vbCr & StrName & vbCr & "already exists." & _ vbCr & "Continue saving (overwrite existing file)?", vbOKCancel) If Rslt = vbCancel Then Exit Sub End If .SaveAs2 FileName:=StrName, FileFormat:=.SaveFormat End With End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] Last edited by macropod; 05-22-2013 at 11:06 PM. Reason: Added warning code |
#3
|
|||
|
|||
Thank you, Paul. As you likely guessed, I'm new to VBA, but find it very useful.
In the code, I changed .SaveAs2 to simply .SaveAs, in order to prevent an error. Is there a reason why I should have kept .SaveAs2? Thanks again, Daniel |
#4
|
||||
|
||||
SaveAs has been deprecated. Its successor is SaveAs2. If you were getting errors, that suggests you were using the macro with something earlier than Word 2007.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#5
|
|||
|
|||
Sorry. The information about my Office program was wrong on my profile, although I am using Word 2007.
Thanks again. You have made my work easier! Daniel |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Can not save read only document | crescere | Word | 1 | 03-30-2013 11:19 PM |
Word ask to save template whenever i save a derived document | jorbjo | Word | 3 | 10-04-2012 10:52 AM |
Using Save As on a Read Only Document | jenc13 | PowerPoint | 1 | 01-18-2012 11:34 AM |
Cannot save Word document | don madsen | Word | 6 | 09-16-2011 09:02 PM |
code to save / rename / send attachments | unit213 | Outlook | 1 | 09-26-2007 08:15 PM |