Dim Revi As Object
Dim WordApp As Object, WordObj As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordObj = WordApp.Documents.Open("C:\Nom document.doc", ReadOnly:=True)
For Each Revis In WordObj.Revisions
MsgBox Revis.Author & vbCrLf & _
Revis.Date & vbCrLf & _
Revis.Range.Text
Next Revis