Объект DocumentLibraryVersions (Office)

Свойство DocumentLibraryVersions объекта Document в Microsoft Word, объекта Workbook в Excel и объекта Presentation в PowerPoint возвращает объект DocumentLibraryVersions. Объект DocumentLibraryVersions представляет коллекцию объектов DocumentLibraryVersion .

Примечания

Используйте объект DocumentLibraryVersions с документами, хранящимися в библиотеке документов SharePoint на сервере, чтобы определить, включено ли управление версиями для активного документа и включено ли управление версиями, для управления коллекцией объектов DocumentLibraryVersion документа.

Каждый объект DocumentLibraryVersion представляет одну сохраненную версию активного документа. Когда управление версиями включено, новая версия создается на сервере в результате следующих действий: Дополнительные версии не создаются каждый раз, когда пользователь сохраняет изменения в открытом документе.

  • Возврат
  • Сохранение. Новая версия создается на сервере, когда пользователь сохраняет документ после его открытия. Дополнительные изменения, сохраненные при открытом документе, применяются к той же версии.
  • Восстановление
  • Отправить

Объектная модель DocumentLibraryVersions доступна независимо от того, включено ли управление версиями в активном документе. Свойство DocumentLibraryVersions объектов "Документ", "Книга" и "Презентация" не возвращает значение "Ничего", если активный документ не хранится в библиотеке документов или не включено управление версиями. Свойство 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 и обратная связь.

  • Last updated on