Date Property Example

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