Versions 属性

该属性返回代表指定文档所有版本的 Versions 集合。只读。

有关返回集合中单个成员的内容，请参阅返回集合中的对象。

示例

本示例显示用户名和文档最新版本的日期。

If ActiveDocument.Versions.Count >= 1 Then
    Set aVersion = _
        ActiveDocument.Versions(ActiveDocument.Versions.Count)
    MsgBox "Saved by " & aVersion.SavedBy & " on " & aVersion.Date
End If

本例保存 Contract.doc 的一个版本及一小段备注。

Documents("Contract.doc").Versions.Save _
    Comment:="Added a single word"