Método Selection.PreviousRevision (Word)

Artigo
04/07/2023

Localiza e retorna a revisão anterior como um objeto Revision.

Sintaxe

expression. PreviousRevision( _Wrap_ )

expressão Obrigatório. Uma variável que representa um objeto Selection.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Wrap	Opcional	Variantes	True para continuar a pesquisa de uma revisão no final do documento quando se chegar ao início do documento. O valor padrão é False.

Valor de retorno

Revision

Exemplo

Este exemplo seleciona a última revisão da primeira seção do documento ativo e exibe a data e a hora da revisão.

Selection.EndOf Unit:=wdStory, Extend:=wdMove 
Set myRev = Selection.PreviousRevision 
If Not (myRev Is Nothing) Then MsgBox myRev.Date

Este exemplo rejeita a revisão anterior encontrada se o tipo de revisão for texto excluído ou inserido. Se a revisão for uma alteração de estilo, ela será aceita.

Set myRev = Selection.PreviousRevision(Wrap:=True) 
If Not (myRev Is Nothing) Then 
 Select Case myRev.Type 
 Case wdRevisionDelete 
 myRev.Reject 
 Case wdRevisionInsert 
 myRev.Reject 
 Case wdRevisionStyle 
 myRev.Accept 
 End Select 
End If

Confira também

Objeto Selection

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.