You could use the savedate field. However most fields do not update
automatically and if you updated the savedate field after saving to display
its revised content, the document would need to be saved again ad infinitum.
It should however show the correct date the next time the document is
opened.
You could work around this anomaly with a couple of macros in the document
template, then replace the field in the document with the docvariable field
{ DocVariable varSaveDate }. The macros update a document variable with the
current date before saving. You can change the date formatting switches
"dd/MM/yyyy" to suit your local preference.
As you only want this on page one, you can either insert it in the first
page header thus: Document last updated {DocVariable varSaveDate}
or
you can conditionally insert it in the document header thus: {IF {Page} = 1
"Document last updated {DocVariable varSaveDate}"}
Use CTRL+F9 for each pair of brackets {}
http://www.gmayor.com/installing_macro.htm
Sub FileSave()
Dim oVars As Variables
Dim oField As Field
Set oVars = ActiveDocument.Variables
oVars("varSaveDate").Value = Format(Date, "dd/MM/yyyy")
For Each oField In ActiveDocument.Fields
If oField.Type = wdFieldDocVariable Then
oField.Update
End If
Next oField
On Error Resume Next
ActiveDocument.Save
ActiveWindow.Caption = ActiveDocument.FullName
End Sub
and
Sub FileSaveAs()
Dim oVars As Variables
Dim oField As Field
Set oVars = ActiveDocument.Variables
oVars("varSaveDate").Value = Format(Date, "dd/MM/yyyy")
For Each oField In ActiveDocument.Fields
If oField.Type = wdFieldDocVariable Then
oField.Update
End If
Next oField
On Error Resume Next
Dialogs(wdDialogFileSaveAs).Show
ActiveWindow.Caption = ActiveDocument.FullName
End Sub
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>