以编程方式检测插入时的分页符

Question

我正在为 Word 2010 编写一个用于格式化文档的宏。如果 table 被插入并分布在一页以上，我希望 table headers 在每一页上重复。在下一页上，我还想重复 table 的标题并在末尾添加一个“（续）”。

不幸的是，Word 没有自动解决方案来重复 table 标题或编辑它们。所以我得出的结论是，只有拆分 table 才有可能做到这一点。不过没关系...

现在我的问题是：是否可以通过某种方式在我的 vba 代码中识别出在我的插入过程中是否执行了分页符？

Answer 1

我想我找到了一些解决办法。这绝对不好，但它可以工作。

我正在保存插入前的页码，然后将其与插入后的页码进行比较。

Sub insert()
    Dim currentPage
    currentPage = Selection.Information(wdActiveEndPageNumber)
    Selection.InsertFile ("Filepath")
    If (Selection.Information(wdActiveEndPageNumber) <> currentPage) Then
        ' Page break

    End If
End Sub

以编程方式检测插入时的分页符

Programmatically detect pagebreak on insert

vba

ms-word