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

我正在为word 2010编写一个宏来格式化文档。如果表插入并分布在多个页面上，我希望表格标题在每个页面上重复。在下一页，我也想重复表格的标题，并在最后添加一个“（续）”。以编程方式检测插页上的分页符

Somethink linke this...

不幸的是，由Word既没有自动解决重复表格标题也不是编辑。所以我得出这样的结论：只有当我拆分表格时才有可能。但没关系......

现在我的问题：是否有可能在我的vba代码中识别在插入过程中是否执行了分页符？

来源

2015-01-15 blckbird

该表是否必须在Word中？ Excel有一个内置程序，用于为打印中的每个“页面”添加标题。 – Chrismas007 2015-01-15 17:05:32

必须在文字中 – blckbird 2015-01-15 17:06:06

如果您将宏添加到所有人都可以看到的问题中，可能会有帮助 – 2015-01-15 21:33:46

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

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

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

    End If 
End Sub

来源

2015-01-16 07:40:24 blckbird

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

回答

相关问题