Compartir a través de

Objeto DocumentLibraryVersions (Office)

  • Artículo

La propiedad DocumentLibraryVersions del objeto Document en Microsoft Word, el objeto Workbook en Excel y el objeto Presentation de PowerPoint devuelve un objeto DocumentLibraryVersions . El objeto DocumentLibraryVersions representa una colección de objetos DocumentLibraryVersion .

Comentarios

Use el objeto DocumentLibraryVersions con documentos almacenados en una biblioteca de documentos de SharePoint en el servidor para determinar si el control de versiones está habilitado para el documento activo y, si el control de versiones está habilitado, para administrar la colección de objetos DocumentLibraryVersion del documento.

Cada objeto DocumentLibraryVersion representa una versión guardada del documento activo. Cuando se habilita el control de versiones, se crea una nueva versión en el servidor cuando se producen las siguientes acciones; No se crean versiones adicionales cada vez que el usuario guarda los cambios en el documento abierto.

  • Protección
  • Guardar: se crea una nueva versión en el servidor cuando el usuario guarda por primera vez el documento después de abrirlo. Los cambios adicionales guardados mientras el documento está abierto se aplican a la misma versión.
  • Restaurar
  • Cargar

El modelo de objetos DocumentLibraryVersions está disponible si control de versiones está habilitado o deshabilitado en el documento activo. La propiedad DocumentLibraryVersions de los objetos Document, Workbook y Presentation no devuelve Nothing cuando el documento activo no está almacenado en una biblioteca de documentos o el control de versiones no está habilitado. Use la propiedad IsVersioningEnabled para determinar si la biblioteca de documentos está configurada para guardar una copia de seguridad o una versión, cada vez que el documento se edita en el sitio web.

Ejemplo:

En el ejemplo siguiente se comprueba si el control de versiones está habilitado para el documento activo y, si es así, muestra información sobre cada versión guardada.

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

Consulte también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.