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