Objeto de revisiones (Word)

Una colección de objetos Revision que representa los cambios marcados con marcas de revisión de un documento o intervalo.

Comentarios

Utilice la propiedad Revisions para devolver la colección Revisions. En el ejemplo de código siguiente se muestra el número de revisiones en el texto principal.

MsgBox ActiveDocument.Revisions.Count

En el siguiente ejemplo de código, se aceptan todas las revisiones de la selección.

For Each myRev In Selection.Range.Revisions 
 myRev.Accept 
Next myRev

En el ejemplo de código siguiente se acepta todas las revisiones en el primer párrafo de la selección.

Set myRange = Selection.Paragraphs(1).Range 
myRange.Revisions.AcceptAll

El método Add no está disponible para la colección Revisions. Los objetos Revision se agregan cuando está habilitado el seguimiento de cambios. Establezca la propiedad TrackRevisions en True para controlar las revisiones efectuadas en el texto del documento. En el ejemplo de código siguiente se permite revisar cambios en el documento activo y, a continuación, se inserta "El" delante de la selección.

ActiveDocument.TrackRevisions = True 
Selection.InsertBefore "The "

Utilice Revisions (Index), donde Index es el número de índice, para devolver un solo objeto Revision. El número de índice representa la posición de la revisión en el intervalo o el documento. En el ejemplo de código siguiente se muestra el nombre del autor de la primera revisión de la primera sección.

MsgBox ActiveDocument.Sections(1).Range.Revisions(1).Author

La propiedad Count de esta colección de un documento devuelve el número de elementos sólo del artículo principal. Para contar los elementos de otros contenidos utilice la colección con el objeto Range.

Métodos

Nombre
AcceptAll
Elemento
RejectAll

Propiedades

Nombre
Aplicación
Count
Creator
Parent

Vea también

Referencia de modelos de objetos de Word

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.