Range.Subdocuments (Word)

Retorna uma coleção de subdocumentos que representa todos os subdocumentos do intervalo ou documento especificado. Somente leitura.

Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção.

MsgBox ActiveDocument.Range.Subdocuments.Count