Range.Subdocuments (Word)

Returns a Subdocuments collection that represents all the subdocuments in the specified range or document.

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

MsgBox ActiveDocument.Range.Subdocuments.Count