我正在编写用于格式化文档的Word 2010的宏。如果表插入并分布在多个页面上,我希望在每个页面上重复表头。在下一页我还想重复表格的标题并添加一个"(续)"最后。
不幸的是,Word没有自动解决方案既不重复表格标题也不编辑它们。所以我得出的结论是,只有分开桌子才能实现这一点。但那没问题......
现在我的问题:在我的vba代码中是否可以识别是否在插入过程中执行了分页?
答案 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