Range.Subdocuments (Word)
Renvoie une collection Subdocuments qui représente tous les sous-documents de la plage ou du document spécifié.
Pour plus d’informations sur le renvoi d’un seul membre d’une collection, voir renvoi d’un objet à partir d’une collection.
MsgBox ActiveDocument.Range.Subdocuments.Count