Compartir a través de

Método Document.RejectAllRevisionsShown (Word)

  • Artículo

Rechaza todas las revisiones de un documento que aparecen en pantalla.

Sintaxis

expresión. RejectAllRevisionsShown

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

Ejemplo:

En este ejemplo se ocultan las revisiones de Jeff Smith y se rechazan todas las otras revisiones mostradas.

Sub RejectAllChanges() 
 Dim rev As Reviewer 
 With ActiveWindow.View 
 'Show all revisions in the document 
 .ShowRevisionsAndComments = True 
 .ShowFormatChanges = True 
 .ShowInsertionsAndDeletions = True 
 
 For Each rev In .Reviewers 
 rev.Visible = True 
 Next 
 
 'Hide revisions made by "Jeff Smith" 
 .Reviewers(Index:="Jeff Smith").Visible = False 
 End With 
 
 'Reject all revisions displayed in the active view 
 ActiveDocument.RejectAllRevisionsShown 
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.