Поделиться через

Объект DocumentLibraryVersions (Office)

  • Статья

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

Замечания

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

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

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

Объектная модель DocumentLibraryVersions доступна независимо от того, включено или отключено управление версиями в активном документе. Свойство DocumentLibraryVersions объектов Document, Workbook и Presentation не возвращает значение 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 и обратная связь.