Can Word 2002 automatically generate version01, 02, 03, etc. of a document?

  • Thread starter Thread starter Walter Donavan
  • Start date Start date
W

Walter Donavan

I have what must be an extremely common situation, yet I cannot find a
solution within the Word Help or my Office XP Inside Out book. Neither the
Track Changes, Save a Backup Copy, nor Versions functions seem to do what I
want.

I need to write a paper for my doctoral program in theology. I expect to
create numerous drafts, and would like to consider each editing session one
draft. Is there any way to get Word to save -- pile up, if you will --
version after version as I end each editing session?

When I wrote my book (see below), I manually saved each session with a new
version number at the end (book215.doc, book216.doc, etc.). I am hoping to
somehow do that automatically this time.

Thank you for your help.
--
Walter Donavan, Author
Revelation: The Seven Stages of the
Journey Back to God
www.revelation7stages.com
www.1stbooks.com/bookview/15479
 
Thank you kindly, Graham. I have just enough macro experience to feel
comfortable with this, and I shall use it. :-)
 
Given that this is a document and not new numbered documents from a
template, I would be inclined to make a small adjustment. Instead of
creating an autonew macro in the template, create a non-auto macro in
normal.dot (or the document's template) and add a button to the toolbar to
call it. You can then save a numbered version whenever the whim takes you at
a click of a button. The revised code could be as follows. Define your
filename and path as indicated.

Sub SaveNumberedVersion()
'Based on code by Doug Robbins
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(Order, "00#")
End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
Back
Top