Ler em inglês

Compartilhar via


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.

Comentários

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.

Métodos

Propriedades

Confira também

Referência do modelo de objeto do Word

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.