Microsoft Word 中的 Document 对象的 DocumentLibraryVersions 属性、Excel 中的 Workbook 对象和 PowerPoint 中的 Presentation 对象返回 DocumentLibraryVersions 对象。 DocumentLibraryVersions 对象表示 DocumentLibraryVersion 对象的集合。
备注
将 DocumentLibraryVersions 对象与存储在服务器上的 SharePoint 文档库中的文档一起使用，以确定是否为活动文档启用了版本控制，如果启用了版本控制，则用于管理文档的 DocumentLibraryVersion 对象的集合。
每个 DocumentLibraryVersion 对象表示活动文档的一个已保存版本。 启用版本控制后，发生以下作时，会在服务器上创建一个新版本：每次用户将更改保存到打开的文档时，都不会创建其他版本。
- 签入
- 保存：当用户在打开文档后首次保存文档时，会在服务器上创建新版本。 在打开文档时所保存的其他更改也将应用于同一版本。
- 还原
- 上传
无论对活动文档启用还是禁用版本控制，都可使用 DocumentLibraryVersions 对象模型。 当活动文档未存储在文档库或未启用版本控制时，Document、Workbook 和 Presentation 对象的 DocumentLibraryVersions 属性不会返回 Nothing。 使用 IsVersioningEnabled 属性可以确定每次在网站上编辑文档时，文档库是配置为保存备份副本还是版本。
示例
以下示例检查是否为活动文档启用了版本控制，如果是，则显示有关每个已保存版本的信息。
Dim dlvVersions As Office.DocumentLibraryVersions
Dim dlvVersion As Office.DocumentLibraryVersion
Dim strVersionInfo As String
Set dlvVersions = ActiveDocument.DocumentLibraryVersions
If dlvVersions.IsVersioningEnabled Then
strVersionInfo = "This document has " & _
dlvVersions.Count & " versions: " & vbCrLf
For Each dlvVersion In dlvVersions
strVersionInfo = strVersionInfo & _
" - Version #: " & dlvVersion.Index & vbCrLf & _
" - Modified by: " & dlvVersion.ModifiedBy & vbCrLf & _
" - Modified on: " & dlvVersion.Modified & vbCrLf & _
" - Comments: " & dlvVersion.Comments & vbCrLf
Next
Else
strVersionInfo = "Versioning not enabled for this document."
End If
MsgBox strVersionInfo, vbInformation + vbOKOnly, "Version Information"
Set dlvVersion = Nothing
Set dlvVersions = Nothing
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。