Classe Revision (Word VBA)

La classe Revision représente une modification marquée par une marque de révision.

Set

Pour utiliser une variable de classe Revision, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Revision : Revisions.Item, Selection.NextRevision, Selection.PreviousRevision, Document.Revisions et Range.Revisions

For Each

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

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

Thèmes

Les procédures suivantes de cette classe ont été regroupées et sont décrites sur une page thématique séparée

Format with its procedures FormatDescription et Style

Propriétés

Author Renvoie le nom de l'utilisateur qui a effectué la modification spécifiée.

Dim strAuthor As String
strAuthor = ActiveDocument.Range.Revisions(1).Author

Cells Renvoie une collection Cells qui représente les cellules de tableau qui ont été marquées avec des marques de révision.

Dim cllsCells As Cells
Set cllsCells = ActiveDocument.Range.Revisions(1).Cells

Date Date et heure de la modification.

Dim dtToday As Date
dtToday = ActiveDocument.Range.Revisions(1).Date

Index Renvoie un type long qui représente la position d'un élément dans une collection.

Dim lngIndex As Long
lngIndex = ActiveDocument.Range.Revisions(1).Index

MovedRange Renvoie un objet Range qui représente une plage de texte qui a été déplacée d'un endroit à un autre dans un document avec des marques de révision.

Dim rngMovedRange As Range
Set rngMovedRange = ActiveDocument.Range.Revisions(1).MovedRange

Parent Renvoie un type de données Object qui représente l'objet parent de l'objet Revision spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Revisions(1).Parent

Range Renvoie un objet Range qui représente la partie d’un document contenue dans une marque de révision.

Dim rngRange As Range
Set rngRange = ActiveDocument.Range.Revisions(1).Range

Type Renvoie le type de révision.

Dim wrtType As WdRevisionType
wrtType = ActiveDocument.Range.Revisions(1).Type

Revisions.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

Revisions.Parent Renvoie un Object qui représente l'objet parent de l'objet Revisions spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Revisions.Parent