Clase Revisions (Word VBA)

Colección de objetos revision que representa los cambios marcados con marcas de revisión de un intervalo o de un documento. Para usar una variable de clase Revisions, primero debe ser instanciado, por ejemplo

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

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Revisions en una colección.

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

AcceptAll

Acepta todas las marcas de revisión de un documento o intervalo, quita dichas marcas e incorpora los cambios al documento.

Utilice el método AcceptAllRevisions para aceptar todas las revisiones de un documento.

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

Count

Devuelve un Long que representa el número de revisiones de la colección.

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

Item

Devuelve un objeto Revisions individual de una colección.

Item (Index)

Index: El objeto individual que se va a devolver.

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

RejectAll

expresión.

ActiveDocument.Range.Revisions.RejectAll