Range.Revisions (Word)
Devuelve una colección Revisions que representa los cambios realizados en el intervalo.
Para obtener información sobre la devolución de un solo miembro de una colección, vea Devolver un solo objeto de una colección.
MsgBox ActiveDocument.Sections(1).Range.Revisions.Count