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