Selection.PreviousRevision (Word)

Localiza e retorna a alteração controlada anterior como um objeto Revision .

PreviousRevision (Wrap)

Wrap: 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.

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