Clase Revision (Word VBA)

La clase Revision representa un cambio señalado con una marca de revisión.

Set

Para usar una variable de clase Revision, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase Revision : Revisions.Item, Selection.NextRevision, Selection.PreviousRevision, Document.Revisions y Range.Revisions

For Each

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

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

Temas

Los siguientes procedimientos de esta clase se han agrupado y se describen en una página temática separada

Format with its procedures FormatDescription y Style

Propiedades

Author Devuelve el nombre del usuario que realizó el cambio especificado.

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

Cells Devuelve una colección Cells que representa las celdas de tabla que se han marcado con marcas de revisión.

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

Date La fecha y la hora en que se realizó la marca de revisión.

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

Index Devuelve un valor de tipo Long que representa la posición de un elemento en una colección.

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

MovedRange Devuelve un objeto Range que representa un rango de texto que se movió de un punto a otro en un documento con marcas de revisión.

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

Parent Devuelve un objeto Object que representa el objeto primario del objeto Revision especificado.

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

Range Devuelve un objeto Range que representa la parte de un documento incluida en una marca de revisión.

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

Type Devuelve el tipo de revisión.

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

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

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

Revisions.Parent Devuelve un objeto Object que representa el objeto primario del objeto Revisions especificado.

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