Vba 如何确定表行是否紧跟分页符

Vba 如何确定表行是否紧跟分页符,vba,ms-word,Vba,Ms Word,给定一个跨越多个页面的Word表,我的代码如何确定表行是自动分页符之后的第一行?请注意,表格行的高度不同,因此“每13行是新页面上的第一行”形式的解决方案不起作用 其要点是在每个新页面顶部的第一个单元格中添加额外的文本。对该表行使用wdActiveEndPageNumber。在检查页码之前,请确保该行的大小与它将得到的大小相同 n = word.ActiveDocument.Tables(a).rows(b).Range.Information(wdActiveEndPageNumber) 如

给定一个跨越多个页面的Word表,我的代码如何确定表行是自动分页符之后的第一行?请注意,表格行的高度不同,因此“每13行是新页面上的第一行”形式的解决方案不起作用


其要点是在每个新页面顶部的第一个单元格中添加额外的文本。

对该表行使用
wdActiveEndPageNumber
。在检查页码之前,请确保该行的大小与它将得到的大小相同

n = word.ActiveDocument.Tables(a).rows(b).Range.Information(wdActiveEndPageNumber)

如果表足够大,可以拆分为多个页面,则比较连续行的页码,直到页码发生变化。没有分页符可言

获取这些信息的目的是什么?单元格能否跨越分页符?如果是这样的话,这对你想要达到的目标有关系吗?加上macropod的问题:你是指手动分页符还是自动分页符?阅读你的问题,我会假设第一个。如果我问第二个问题,我会问“如何确定新页面上哪个表行开始”?当使用@lobachevsky的wdActiveEndPageNumber建议对此提出答案时,细微差别非常重要