Método Selection.PreviousRevision (Word)

Artículo
04/07/2023

Busca y devuelve la marca de revisión anterior como un objeto Revision.

Sintaxis

expresión. PreviousRevision( _Wrap_ )

expresión requerida. Variable que representa un objeto Selection.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Wrap	Opcional	Variant	True para proseguir buscando una revisión al final del documento cuando se llega al principio del mismo. El valor predeterminado es False.

Valor devuelto

Revision

Ejemplo:

En este ejemplo se selecciona la última marca de revisión de la primera sección del documento activo y se muestran la fecha y hora de la misma.

Selection.EndOf Unit:=wdStory, Extend:=wdMove 
Set myRev = Selection.PreviousRevision 
If Not (myRev Is Nothing) Then MsgBox myRev.Date

En este ejemplo se rechaza la marca de revisión anterior encontrada si el tipo de cambio es texto eliminado o insertado. Si se trata de un cambio de estilo, se acepta el cambio.

Set myRev = Selection.PreviousRevision(Wrap:=True) 
If Not (myRev Is Nothing) Then 
 Select Case myRev.Type 
 Case wdRevisionDelete 
 myRev.Reject 
 Case wdRevisionInsert 
 myRev.Reject 
 Case wdRevisionStyle 
 myRev.Accept 
 End Select 
End If

Consulte también

Objeto Selection

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.