Compartir a través de

Objeto DocumentLibraryVersion (Office)

  • Artículo

El objeto DocumentLibraryVersion representa una única versión guardada de un documento compartido que tiene habilitado el control de versiones y que se almacena en una biblioteca de documentos en el servidor. Cada objeto DocumentLibraryVersion es un miembro de la colección DocumentLibraryVersions del documento activo.

Comentarios

Cada objeto DocumentLibraryVersion representa una versión guardada del documento activo. Cuando está habilitado el control de versiones, se crea una nueva versión en el servidor cuando se producen las acciones enumeradas a continuación; 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

Utilice las propiedades Modified, ModifiedBy y Comments para devolver información sobre una versión guardada de un documento compartido.

Utilice el método Open para abrir una versión anterior, o el método Restore para restaurar una versión anterior en lugar de la versión actual. Utilice el método Delete para eliminar una versión.

Ejemplo:

En el siguiente ejemplo se muestran las propiedades de cada versión guardada del documento activo.

 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.