Compartilhar via

Objeto DocumentLibraryVersions (Office)

A propriedade DocumentLibraryVersions do objeto Documento no Microsoft Word, o objeto Livro no Excel e o objeto Apresentação no PowerPoint devolve um objeto DocumentLibraryVersions. O objeto DocumentLibraryVersions representa uma coleção de objetos DocumentLibraryVersion .

Comentários

Utilize o objeto DocumentLibraryVersions com documentos armazenados numa biblioteca de documentos do SharePoint no servidor para determinar se o controlo de versões está ativado para o documento ativo e, se o controlo de versões estiver ativado, para gerir a coleção de objetos DocumentLibraryVersion do documento.

Cada objeto DocumentLibraryVersion representa uma versão salva do documento ativo. Quando o controlo de versões está ativado, é criada uma nova versão no servidor quando ocorrem as seguintes ações; não são criadas versões adicionais sempre que o utilizador guarda as alterações ao documento aberto.

  • Fazer ceck-in
  • Guardar: é criada uma nova versão no servidor quando o utilizador guarda o documento pela primeira vez depois de o abrir. Alterações adicionais salvas enquanto o documento está aberto se aplicam à mesma versão.
  • Restaurar
  • Carregar

O modelo de objeto DocumentLibraryVersions está disponível se o controle de versão está habilitada ou desabilitada no documento ativo. A propriedade DocumentLibraryVersions dos objetosDocumento, Livro e Apresentação não devolve Nada quando o documento ativo não está armazenado numa biblioteca de documentos ou o controlo de versões não está ativado. Utilize a propriedade IsVersioningEnabled para determinar se a biblioteca de documentos está configurada para guardar uma cópia de segurança ou versão sempre que o documento é editado no site.

Exemplo

O exemplo seguinte verifica se o controlo de versões está ativado para o documento ativo e, em caso afirmativo, apresenta informações sobre cada versão 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

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.

  • Last updated on