Date 属性

Revision 对象：指修订的日期和时间。Date 类型，只读。

Version 对象：指保存文档版本的日期和时间。Date 类型，只读。

示例

本示例显示保存活动文档最新版本的日期和时间。

Dim docActive As Document

Set docActive = ActiveDocument

If docActive.Path <> "" Then MsgBox _
    docActive.Versions(docActive.Versions.Count).Date

本示例显示在活动文档中查找到的下一处修订的日期和时间。

Dim revTemp As Revision

If ActiveDocument.Revisions.Count >= 1 Then
    Set revTemp = Selection.NextRevision
    If Not (revTemp Is Nothing) Then MsgBox revTemp.Date
End If