Método Document.AcceptAllRevisionsShown (Word)

Aceita todas as revisões do documento especificado que estão visíveis na tela.

Sintaxe

expression. AcceptAllRevisionsShown

expression é obrigatório. Uma variável que representa um objeto Document.

Comentários

Use o método RejectAllRevisionsShown para rejeitar todas as revisões em um documento especificado que estejam visíveis na tela.

Exemplo

Este exemplo aceita todas as revisões exibidas após ocultar revisões feitas por "Jeff Smith." O exemplo pressupõe que o documento ativo foi revisado por mais de uma pessoa e que o nome de um dos revisores é "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

Confira também

Objeto Document

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.