如何用vba在word文档的每页结尾插入分节、分页符?

用vba在word文档中插入分隔符,可以使用Range或者Selection对象的InsertBreak方法。

定位word的每页可以使用Document、Range、Selection对象的GoTo方法。

由于GoTo方法将返回一个Range对象,该对象表示定位的对象的起始位置。

基于以上的知识,用vba在word文档的每页结尾插入分页符、分节符,可以采用以下的算法

从最后一页开始遍历到第二页,每次返回的是当前页的开始位置,然后在开始位置插入分隔符即变成了在上一页的结尾插入分隔符。

实现代码如下:

以下代码可以在word文档的每页结尾插入一个不分页的分节符

如果要每间隔一页插入一个空白页,可以使用如下的代码:

       

发表评论