Document.Subdocuments (Word)

Devuelve una colección Subdocuments que representa todos los subdocumentos del 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.Subdocuments.Count