Método Revision.Reject (Word)

  • Artículo

Rechaza la marca de revisión especificada. Se quitan las marcas de revisión, dejando el texto original intacto.

Sintaxis

expresión. Reject

expresión obligatoria. Variable que representa un objeto 'Revision'.

Comentarios

Los cambios de formato no se pueden rechazar.

Ejemplo:

En este ejemplo se rechaza la siguiente marca de revisión encontrada en el documento activo.

Dim revNext As Revision 
 
If ActiveDocument.Revisions.Count >= 1 Then 
 Set revNext = Selection.NextRevision 
 If Not (revNext Is Nothing) Then revNext.Reject 
End If

En este ejemplo se rechazan las marcas de revisión del primer párrafo.

Dim rngTemp As Range 
Dim revLoop As Revision 
 
Set rngTemp = ActiveDocument.Paragraphs(1).Range 
For Each revLoop In rngTemp.Revisions 
 revLoop.Reject 
Next revLoop

En este ejemplo se rechaza la primera marca de revisión de la selección.

Dim rngTemp As Range 
 
Set rngTemp = Selection.Range 
If rngTemp.Revisions.Count >= 1 Then _ 
 rngTemp.Revisions(1).Reject

Consulte también

Objeto Revision

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.