Classe Revisions (Word VBA)

Collection d’objets Revision qui représentent les modifications signalées par des marques de révision dans une plage ou un document. Pour utiliser une variable de classe Revisions, elle doit d'abord être instanciée, par exemple

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

For Each

Voici un exemple de traitement des éléments Revisions dans une collection

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

AcceptAll

Accepte toutes les modifications faisant partie d'un document ou d'une sélection. Les marques de révision sont supprimées et les modifications sont intégrées dans le document.

Utilisez la méthode AcceptAllRevisions pour accepter toutes les révisions dans un document.

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

Count

Renvoie un type long qui représente le nombre de révisions dans la collection.

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

Item

Renvoie un objet revisions spécifique appartenant à une collection.

Item (Index)

Index: Objet spécifique qui doit être renvoyé.

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

RejectAll

expression.

ActiveDocument.Range.Revisions.RejectAll