Classe Revisions (Word VBA)

Uma coleção de objetos Revision que representam as alterações marcadas com marcas de revisão em um intervalo ou documento. Para usar uma variável de classe Revisions, ela primeiro precisa ser instanciada por exemplo

Dim rvs as Revisions
Set rvs = ActiveDocument.Range.Revisions

For Each

Aqui está um exemplo de processamento dos itens Revisions em uma coleção.

Dim rvs As Revision
For Each rvs In ActiveDocument.Range.Revisions
	
Next rvs

AcceptAll

Aceita todas as alterações identificadas em um documento ou intervalo, remove todas as marcas de revisão e incorpora as alterações no documento.

Use o método AcceptAllRevisions para aceitar todas as revisões em um documento.

If ActiveDocument.Revisions.Count >= 1 Then _ 
 ActiveDocument.Revisions.AcceptAll

Count

Retorna um Long que representa o número de revisões na coleção. Somente leitura.

Dim lngCount As Long
lngCount = ActiveDocument.Range.Revisions.Count

Item

Retorna um objeto Revisions individual em uma coleção.

Item (Index)

Index: O objeto individual a ser retornado.

Dim rvs As Revision
Set rvs = ActiveDocument.Range.Revisions(Index:=1)

RejectAll

expression.expression. RejectAll.

ActiveDocument.Range.Revisions.RejectAll