Document.Subdocuments (Word)

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

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

MsgBox ActiveDocument.Subdocuments.Count