Método Revision.Accept (Word)

Acepta la marca de revisión especificada, quita dicha marca e incorpora el cambio en el documento.

Sintaxis

expresión. Accept

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

Ejemplo:

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

Set revNext = Selection.NextRevision(Wrap:=True) 
 
If Not (revNext Is Nothing) Then 
 If revNext.Type = wdRevisionInsert Then revNext.Accept 
End If

En este ejemplo se aceptan todas las marcas de revisión de la selección.

Dim revLoop As Revision 
Dim rngSelection As Range 
 
Set rngSelection = Selection.Range 
For Each revLoop In rngSelection.Revisions 
 revLoop.Accept 
Next revLoop

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.