--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Random wrote:
> How do I use macro or some other feature of word to save a new copy
> of word doc each day. I need to make a document that Automatically
> arcives or saves a new copy of my word document each days .
BTW- Please post on one area only and return to it to check for replies. You
posted the same question here and in General questions 3 minutes apart.
Thanks for helping others help you!
HTH |:>)
See http://www.gmayor.com/installing_macro.htm
Sub SaveNumberedVersion()
Dim strPath, strFile As String
strPath = "D:\My Documents\Test\" 'set path
strFile = "My File " 'set filename
Order = System.PrivateProfileString("C:\Settings.Txt", _
"MacroSettings", "Order")
If Order = "" Then
Order = 1
Else
Order = Order + 1
End If
System.PrivateProfileString("C:\Settings.txt", "MacroSettings", _
"Order") = Order
ActiveDocument.SaveAs FileName:=strPath & strFile & _
Format((Date), "MMMM dd, yyyy ") & Format(Order, "00#")
End Sub