Word 2000 Create Date (2000 SP3)

Topic

New Reply

Hello, I have a header portion of a standard memo I use in word. I have two dates in the header. One is the creation date and the last revised date. The revised date uses “SAVEDATE”, while the created date uses “CREATEDATE”. If I create a new file from a template that I made, everything works fine. If I try an copy an older document the create date is the creation date of that file.

I have tried to change the file attributes for creation date, and that does not work. So Word must be holding this information internal to the file. Is there a way to change the value so that my create date matches the file attribute?

Tahnks,

Andy

Reply | Quote

Replies

Save the memo as a template (*.dot), then use File | New… to create a new memo instead of copying the existing .doc. The create date will reflect the time you selected File | New.

Reply | Quote

Thanks Hans, I noted that that works in my original post, I was wondering if there was any way to change what I have without copying the contents to a new file that I create using the template. It is not a big deal to do the copy, I was just trying to learn if there was something I was missing.

Thanks again,

Andy

Reply | Quote

Are you duplicating the file in Windows Explorer and then opening this new file?

If you opened the file that you wanted to duplicate and then chose SaveAs then the creation date would reflect the current date (after it updates of course).

Alternatively, right click on the file in Windows Explorer and choose New rather than Open.

A third (slower) option is to have Word open and choose File > New and navigate your way to the file you wish to duplicate. This way is slower because you will always start browsing from the user templates.

Reply | Quote

In Word 2002 (and later), you can create a new document from an existing document using the ‘New Document’ task pane. In Word 2000, you can do this using a macro:

Sub CreateNewFromExisting()
Dim strFilename As String
With Dialogs(wdDialogFileOpen)
.Display
strFilename = .Name
End With
If Not (strFilename = “”) Then
Documents.Add strFilename
End If
End Sub

You could put this macro in a module in your Normal.dot and assign it to a toolbar button and/or keyboard shortcut.

Reply | Quote

Thanks guys! I was copying it in windows and then opening it.

Reply | Quote