Selection.PreviousRevision (Word)

Busca y devuelve la marca de revisión anterior como un objeto revision .

PreviousRevision (Wrap)

Wrap: True para proseguir buscando una revisión al final del documento cuando se llega al principio del mismo.

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