Método Selection.NextRevision (Word)

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

Sintaxis

expresión. NextRevision( _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 principio del documento cuando se llega al final del documento. El valor predeterminado es False.

Valor devuelto

Revision

Comentarios

El texto cambiado se convierte en la selección actual. Utilice las propiedades del objeto Revision resultante para ver de qué tipo de cambio se trata, quién lo realizó y así sucesivamente. Utilice los métodos del objeto Revision para aceptar o rechazar el cambio.

Si no se encuentran más marcas de revisión, no se modificará la selección actual.

Ejemplo:

En este ejemplo se rechaza la siguiente marca de revisión encuentra tras el quinto párrafo del documento activo. La revTempvariable se establece en Nothing si no se encuentra un cambio.

Dim rngTemp as Range 
Dim revTemp as Revision 
 
If ActiveDocument.Paragraphs.Count >= 5 Then 
 Set rngTemp = ActiveDocument.Paragraphs(5).Range 
 rngTemp.Select 
 Set revTemp = Selection.NextRevision(Wrap:=False) 
 If Not (revTemp Is Nothing) Then revTemp.Reject 
End If

En este ejemplo se acepta la siguiente marca de revisión encontrada si el tipo de cambio realizado es texto insertado.

Dim revTemp as Revision 
 
Set revTemp = Selection.NextRevision(Wrap:=True) 
If Not (revTemp Is Nothing) Then 
 If revTemp.Type = wdRevisionInsert Then revTemp.Accept 
End If

En este ejemplo se busca la siguiente revisión a continuación de la selección actual realizada por el autor del documento.

Dim revTemp as Revision 
Dim strAuthor as String 
 
strAuthor = ActiveDocument.BuiltInDocumentProperties(wdPropertyAuthor) 
 
Do While True 
 Set revTemp = Selection.NextRevision(Wrap:=False) 
 If Not (revTemp Is Nothing) Then 
 If revTemp.Author = strAuthor Then 
 MsgBox Prompt:="Another revision by " & strAuthor & "!" 
 Exit Do 
 End If 
 Else 
 MsgBox Prompt:="No more revisions!" 
 Exit Do 
 End If 
Loop

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.