Dim rev As Revision
Debug.Print ActiveDocument.Revisions.Count
For Each rev In ActiveDocument.Revisions
Debug.Print rev.Index
Debug.Print rev.Type
Debug.Print rev.Author
Debug.Print rev.Date
Debug.Print rev.Range.Text
Next
André Luiz Bernardes A&A - WORK, DON´T PLAY! http://al-bernardes.sites.uol.com.br/ bernardess@gmail.com
VBA Word: Checando o número de revisões logo ao abrir o documento.
Vida de escritor não é fácil, precisa-se de 'n' revisões até se chegar ao resultado final, seja ele um texto simples ou mesmo um livro (na verdade nada muito diferente do que fazemos em progração, 'n' revisões).
Bem, com respeito ao MS Office Word poderá acompanhar as 'n' versões logo que abrir o seu documento, por utilizar o código abaixo.
Divirta-se...
Nenhum comentário:
Postar um comentário