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

Question

我正在编写用于格式化文档的Word 2010的宏。如果表插入并分布在多个页面上，我希望在每个页面上重复表头。在下一页我还想重复表格的标题并添加一个＆＃34;（续）＆＃34;最后。

不幸的是，Word没有自动解决方案既不重复表格标题也不编辑它们。所以我得出的结论是，只有分开桌子才能实现这一点。但那没问题......

现在我的问题：在我的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