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
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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de