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
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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de