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

时间:2015-01-15 16:53:23

标签: vba ms-word

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

Somethink linke this...

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

现在我的问题:在我的vba代码中是否可以识别是否在插入过程中执行了分页?

1 个答案:

答案 0 :(得分:0)

我想我找到了一些解决方案。这绝对不是很好,但它可以工作。

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

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

    End If
End Sub