如何使用VBA复制word内容到下一页

用心修炼

各位大佬求助一下：

需求：从系统导出的excel数据可能有几千条，需要将这些数据放入到word模板中，但是word模板每一页固定只存放14行数据。当前word模板只有一页（见上传附件），需要复制模板到word空白下方页，至于复制多少页取决于数据条数；例如，当前有1000条数据，每页限定只放14条，而当前word模板只有一页，相当于在word模板下方空白处增加 1000/14=72页，这个代码如何写。

PS：实际每次导出的总条数是变化的。希望可以做到动态增加word页

413191246se

* 楼主，请将下面的宏复制到 VBE 中的标准模块 NewMacros 中。
* 如果是 Word 2019，则请将代码复制到新建空白文档后，再全选、剪切、粘贴到 VBE 中。
* 第一次执行宏后，增加一页表格；第二次只要按热键 F3 即可执行宏自动增加第一页表格。

1. Sub a0926_CopyTable()
   
2.     KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyF3), KeyCategory:=wdKeyCategoryMacro, Command:="a0926_CopyTable"
   
3.     With ActiveDocument.Tables(1).Range
   
4.         .Cells.VerticalAlignment = wdCellAlignVerticalCenter
   
5.         .Select
   
6.     End With
   
7.     With Selection
   
8.         .MoveStart 4, -2
   
9.         .Copy
   
10.         .EndKey 6
    
11.         .Paste
    
12.     End With
    
13. End Sub

复制代码