Método Revision.Reject (Word)

Rejeita a revisão especificada. As marcas de revisão são removidas, deixando o texto original intacto.

Sintaxe

expression. Reject

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

Comentários

As alterações de formatação não podem ser rejeitadas.

Exemplo

Este exemplo rejeita a próxima revisão encontrada no documento ativo.

Dim revNext As Revision 
 
If ActiveDocument.Revisions.Count >= 1 Then 
 Set revNext = Selection.NextRevision 
 If Not (revNext Is Nothing) Then revNext.Reject 
End If

Este exemplo rejeita as revisões do primeiro parágrafo.

Dim rngTemp As Range 
Dim revLoop As Revision 
 
Set rngTemp = ActiveDocument.Paragraphs(1).Range 
For Each revLoop In rngTemp.Revisions 
 revLoop.Reject 
Next revLoop

Este exemplo rejeita a primeira revisão da seleção.

Dim rngTemp As Range 
 
Set rngTemp = Selection.Range 
If rngTemp.Revisions.Count >= 1 Then _ 
 rngTemp.Revisions(1).Reject

Confira também

Objeto Revision

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.