vba如何动态插入分页符

 时间:2024-10-17 23:56:18

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

vba如何动态插入分页符

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

vba如何动态插入分页符

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

vba如何动态插入分页符

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

vba如何动态插入分页符

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

vba如何动态插入分页符

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

vba如何动态插入分页符

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

vba如何动态插入分页符

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

vba如何动态插入分页符

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

vba如何动态插入分页符

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

vba如何动态插入分页符

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

vba如何动态插入分页符

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

vba如何动态插入分页符
  • excel中怎么设置更新指向其他文档的链接?
  • Excel 2016电子表格如何设置自动折叠功能区
  • 如何在excel跨行将同一行多个单元格进行合并?
  • Word 2010表格的大小调整
  • Win7 系统下,设置鼠标的指针形状
  • 热门搜索
    六年级手抄报图片 名言警句手抄报 海洋知识手抄报 圣诞节手抄报英语 无烟校园手抄报 伊索寓言手抄报 清明时节祭英烈手抄报 勤俭节约手抄报图片 低碳生活手抄报图片 安全在我心手抄报