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

Объект 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 и обратная связь.