乐于分享
好东西不私藏

work efficiently: word文档按固定页数拆分

work efficiently: word文档按固定页数拆分

以制作会议邀请函为例,演示如何按固定页数拆分文档。
一、任务
利用AI生成一张会议邀请函模板和30个人员的名单,运用邮件合并的方式生成30份邀请函到同一个工作文档中。
我们需要将文档每10页拆分成一个独立的文件,如果手工剪切粘贴,那将费时费力,利用VBA我们可以在几秒内完成。
二、拆分
在互联网上搜索“word按页数拆分 VBA”,修改一下页数,直接运行,一分钟之内完成任务。
但是,每个拆分的文档尾页都多了一个空白页,也就是都生成了11页!
又经过一番搜索,没有找到直接可行的代码。
于是思考加个代码删除最后的空白页,尝试用录制宏的方式生成了如下代码。
改进后的完整代码:
再次运行代码后,每10页写入了一个独立的文件,且没有多余的空白页。