利用宏为word表格快速增加行数

1、按alt+F11，将代码粘贴进去：Sub 增加自定义行数() If Not Selection.Information(12) Then Exit Sub n = 朐袁噙岿InputBox("请输入要增加的行数:", "表格行数自定义", 5) If n = "" Then Exit Sub Selection.InsertRowsBelow nEnd Sub

2、然后可以按F5测试下效果，能弹出对话框后，就添加个按钮到工具栏，方便使用。

3、最后是效果图

4、最好将宏添加到Normal模块中，这样每个以后打开的都能用