Compartilhar via

Objeto DocumentLibraryVersion (Office)

  • Artigo

O objeto DocumentLibraryVersion representa uma única versão salva de um documento compartilhado que tem a versão habilitada e que é armazenada em uma biblioteca de documentos no servidor. Cada objeto DocumentLibraryVersion é um membro da coleção DocumentLibraryVersions do documento ativo.

Comentários

Cada objeto DocumentLibraryVersion representa uma versão salva do documento ativo. Quando o controle de versão está habilitado, uma nova versão é criada no servidor quando as ações listadas a seguir ocorrem; versões adicionais não são criadas sempre que o usuário salva as alterações no documento aberto.

  • Fazer ceck-in
  • Salvar: uma nova versão é criada no servidor quando o usuário salva o documento pela primeira vez depois de abri-lo. Alterações adicionais salvas enquanto o documento está aberto se aplicam à mesma versão.
  • Restaurar
  • Carregar

Use as propriedades Modified, ModifiedBy e Comments para retornar informações sobre uma versão salva de um documento compartilhado.

Use o método Open para abrir uma versão anterior ou o método Restore para restaurar uma versão anterior no lugar da versão atual. Use o método Delete para excluir uma versão.

Exemplo

O exemplo a seguir exibe as propriedades de cada versão salva do documento ativo.

 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

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.