Range.Revisions (Word)

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

For information about returning a single member of a collection, see Returning a Single Object from a Collection.

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