Método Selection.PreviousRevision (Word)
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
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.