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
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.