Document.Revisions (Word)

Returns a Revisions collection that represents the tracked changes in the document or range.

For information about returning a single member of a collection, see Returning an object from a collection.

MsgBox ActiveDocument.Sections(1).Range.Revisions.Count