vba如何动态插入分页符
来源:网络收集 点击: 时间:2024-04-05双击桌面图标,打开word应用程序。在word应用程序窗口中,找到状态栏中的“宏录制”按钮。

在新弹出的“录制宏”窗口中,无需修改任何内容,直接点击“确定”按钮,开始进行录制宏。

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

在工具栏中,依次点击“开发工具”——“Visual Basic”或直接按下组合键“Alt+F11”,打开Visual Basic编辑窗口。

在打开的Visual Basic编辑的右侧代码栏中,可以看到如下代码:
Sub 宏1()
宏1 宏
Selection.InsertBreak Type:=wdPageBreak
End Sub
其中以单引号开头的是注释,真正有用的就是这句:Selection.InsertBreak Type:=wdPageBreak,也就是在选区处插入分页符的代码。我们可以利用这段代码来实现自动插入分页符。

在Visual Basic窗口,依次点击工具栏“插入”——“用户窗体”,插入一个窗口。

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

分别选择窗体和按钮,在“属性”窗口修改将两个控件的“Caption”参数分别修改成“自动插入分页符”和“插入分页符”。修改窗体“ShowModal”属性为“false”。

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

点击Visual Basic窗口的“运行”按钮或直接按“F5”键,运行宏代码。

运行效果如下图所示:

把光标定位到要分页的地方,然后点击“插入分页符”按钮,看看不是成功插入了一个分页符,任务完成!!

版权声明:
1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。
2、本站仅提供信息发布平台,不承担相关法律责任。
3、若侵犯您的版权或隐私,请联系本站管理员删除。
4、文章链接:http://www.1haoku.cn/art_431346.html