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
✔ Programação GLOBAL® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog devem ser tratados como consultoria freelance. Queiram contatar-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.
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...
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário