Selection.PreviousRevision (Word)

Sucht die vorherige Überarbeitung und gibt Sie als Revision -Objekt zurück.

PreviousRevision (Wrap)

Wrap: True, wenn die Suche nach einer Korrektur am Ende des Dokuments fortgesetzt werden soll, nachdem der Anfang des Dokuments erreicht wurde.

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