Range.Subdocuments (Word)
Devuelve una colección Subdocuments que representa todos los subdocumentos del intervalo o documento especificado.
Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.
MsgBox ActiveDocument.Range.Subdocuments.Count