VBA Word - 仅循环文档根元素？

Question

我在Word上使用VBA并尝试使用简单的描述执行任务：

使文档内容适合1或2页，而不会在最后一页留下大量空白区域。

为此，我从一个简单的步骤开始：

确定文档内容总高度。 （以后根据我的需要操纵字体大小和行间距）

问题是：

ActiveDocument.Content.Paragraphs列出了与层次结构无关的所有段落。如果我在内容中有一个表，则会列出其所有内容，因此我无法使用它来推断文档内容的高度。

我想在文档结构树上工作，比如

doc.header
doc.contents
    paragraph1
    table1
        cell1
            t1c1p1
        cell2
            t1c2p1
            t1c2p2
    paragraph2
    paragraph3
doc.footer

并且仅针对内容根的直接子节点进行迭代以获得其高度。

但我很难找到办法做到这一点。谁能给我一些帮助？