[mso] Save word file by file name with mmddyy added to file name
- From: Jerry <sis1256@xxxxxxxxxxxxx>
- To: mso@xxxxxxxxxxxxx
- Date: Tue, 30 Mar 2010 16:24:51 -0400
This is the first time I am sending in a request for help in word.
I deal mostly with excel macros, but was asked to write a macro for a word file.
What I need is to save the word document by its file name Utility Deviation
Notice Emergency plus add the month day and year to it also.
EX. SaveAS file Utility Deviation Notice Emergency03302010
I can write a macro for that in excel
Dim sNewName As String
With ActiveWorkbook
sNewName=Application.WorksheetFunction.Substitute(.FullName, ".xls"," " &
Form(Date, "mmddyy")
.SaveAs Filename:=sNewName
End with
Could someone show me how to write it in Word ?
Thank you
Jerry
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or
MicrosoftOffice@xxxxxxxxxxxxxxxx
To send mail to the group, simply address it to mso@xxxxxxxxxxxxx
To Unsubscribe from this group, visit the group's homepage and use the dropdown
menu at the top. This will allow you to unsubscribe your email address or
change your email settings to digest or vacation (no mail).
//www.freelists.org/webpage/mso
To be able to share files with the group, you must join our Yahoo sister group.
This group will not allow for posting of emails, but will allow you to join
and share problem files, templates, etc.:
http://tech.groups.yahoo.com/group/MicrosoftOffice . This group is for FILE
SHARING ONLY.
If you are using Outlook and you see a lot of unnecessary code in your email
messages, read these instructions that explain why and how to fix it:
http://personal-computer-tutor.com/abc3/v28/greg28.htm
*************************************************************
Other related posts:
