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

时间:2014-03-26 13:34:50

标签: vba ms-word word-vba

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

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

为此,我从一个简单的步骤开始:

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

问题是:

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

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

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

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

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

0 个答案:

没有答案