Microsoft Word 中 Document 物件的 DocumentLibraryVersions 屬性、Excel 中的 Workbook 物件，以及 PowerPoint 中的 Presentation 物件會傳回 DocumentLibraryVersions 物件。 DocumentLibraryVersions 物件代表 DocumentLibraryVersion 物件的集合。
註解
將 DocumentLibraryVersions 物件與儲存在伺服器上 SharePoint 文件庫中的文件搭配使用，以判斷是否已啟用作用中文件的版本設定，以及如果已啟用版本設定，則管理文件的 DocumentLibraryVersion 物件集合。
每部 DocumentLibraryVersion 物件代表使用中文件的一個儲存的版本。 啟用版本設定時，當發生下列動作時，會在伺服器上建立新版本;每次使用者儲存開啟文件的變更時，都不會建立其他版本。
- 入住
- 儲存：當使用者開啟文件後首次儲存文件時，會在伺服器上建立新版本。 將檔案開啟期間所儲存的其他變更套用到相同的版本。
- Restore
- 上傳
版本設定是否啟用或停用使用中文件上使用 DocumentLibraryVersions 物件模型。 當使用中文件未儲存在文件庫中或未啟用版本設定時，Document、活頁簿和簡報物件的 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 支援與意見反應。