Objeto Revisions (Word)
Uma coleção de objetos Revision que representam as alterações marcadas com marcas de revisão em um intervalo ou documento.
Use a propriedade de revisões para retornar a coleção de revisões. O exemplo de código a seguir exibe o número de revisões no texto principal.
MsgBox ActiveDocument.Revisions.Count
O exemplo de código a seguir aceita todas as revisões da seleção.
For Each myRev In Selection.Range.Revisions
myRev.Accept
Next myRev
O exemplo a seguir aceita todas as revisões do primeiro parágrafo da seleção.
Set myRange = Selection.Paragraphs(1).Range
myRange.Revisions.AcceptAll
O método Add não está disponível para a coleção Revisions. Objetos de revisão são adicionados quando o controle de alterações estiver habilitada. Defina a propriedade TrackRevisions como True para controlar revisões feitas para o texto do documento. O exemplo de código a seguir habilita o controle de revisões no documento ativo e insere "A" antes da seleção.
ActiveDocument.TrackRevisions = True
Selection.InsertBefore "The "
Use revisões (Index), onde Index é o número de índice, para retornar um único objeto Revision. O número de índice representa a posição da revisão no intervalo ou documento. O seguinte exemplo exibe o nome do autor da primeira revisão na primeira seção.
MsgBox ActiveDocument.Sections(1).Range.Revisions(1).Author
A propriedade Count dessa coleção em um documento retorna o número de itens no texto principal. Para contar itens em outros textos usam a coleção com o objeto de intervalo.
Nome |
---|
Aplicativo |
Count |
Creator |
Parent |
Referência do modelo de objeto do Word
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.