VBA Word: Checando número de revisões ao abrir

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...

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

Tags: Word, version, versão, check, revision, revisão

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

bernardes@.com