Объект DocumentLibraryVersion (Office)

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

Примечания

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

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

Используйте свойства Modified, ModifiedBy и Comments для возврата сведений о сохраненной версии общего документа.

Используйте метод Open , чтобы открыть предыдущую версию, или метод Restore , чтобы восстановить предыдущую версию вместо текущей. Используйте метод Delete для удаления версии.

Пример

В следующем примере отображаются свойства каждой сохраненной версии активного документа.

 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