vba如何动态插入分页符

1、双击桌面图标，打开word应用程序。在word应用程序窗口中，找到状态栏中的“宏录制”按钮。

3、在word窗口中，依次在工具栏中点击“插入”——“分页”，然后再次点击状态栏中的“录制宏”按钮，停止当前的宏录制操作。

5、在打开的Visual Basic编辑的右侧代码栏中，可以看到如下代码：Sub 宏1猾诮沓靥()'' 宏1 宏'' Selection.InsertBre锾攒揉敫ak Type:=wdPageBreakEnd Sub其中以单引号开头的是注释，真正有用的就是这句：Selection.InsertBreak Type:=wdPageBreak，也就是在选区处插入分页符的代码。我们可以利用这段代码来实现自动插入分页符。

7、拖动窗体的边沿调节窗体到合适大小，并点击“工具箱”上的“按钮”图标，在窗体上画出一个按钮。

9、双击按钮，在弹出的代码编辑窗口，将前面录制宏得到的语句“Selection.InsertBreak Type:=wdPageBreak”，复制粘贴进去。

11、运行效果如下图所示：