Compartir a través de

Método Document.AcceptAllRevisionsShown (Word)

  • Artículo

Acepta todas las revisiones del documento especificado que aparecen en pantalla.

Sintaxis

expresión. AcceptAllRevisionsShown

expresión obligatoria. Variable que representa un objeto Document.

Comentarios

Utilice el método RejectAllRevisionsShown para rechazar todas las revisiones del documento especificado que aparecen en la pantalla.

Ejemplo:

En este ejemplo se aceptan todas las revisiones mostradas después de ocultar las revisiones de "Jeff Smith". Se supone que el documento activo ha sido revisado por varias personas y que el nombre de uno de los revisores es "Jeff Smith".

Sub AcceptAllChanges() 
 Dim rev As Reviewer 
 With ActiveWindow.View 
 'Display all comments and revisions 
 .ShowRevisionsAndComments = True 
 .ShowFormatChanges = True 
 .ShowInsertionsAndDeletions = True 
 
 For Each rev In .Reviewers 
 rev.Visible = True 
 Next 
 
 'Hide only the revisions/comments made by the 
 'reviewer named "Jeff Smith" 
 .Reviewers(Index:="Jeff Smith").Visible = False 
 End With 
 
 'Accept all revisions displayed in the active view 
 ActiveDocument.AcceptAllRevisionsShown 
 
End Sub

Consulte también

Objeto Document

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.