Método Selection.PreviousRevision (Word)
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
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.