Document.Revisions (Word)
Devuelve una colección Revisions que representa los cambios realizados en el documento o intervalo.
Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.
MsgBox ActiveDocument.Sections(1).Range.Revisions.Count