This example displays the date and time that the last version of the active document was saved.
Set myDoc = ActiveDocument
If myDoc.Path <> "" Then MsgBox _
myDoc.Versions(myDoc.Versions.Count).Date
This example displays the date and time of the next tracked change found in the active document.
If ActiveDocument.Revisions.Count >= 1 Then
Set myRev = Selection.NextRevision
If Not (myRev Is Nothing) Then MsgBox myRev.Date
End If