用vba在wrod里面选择带合并单元格的表格，根据数量需求复制多次

你好，以下是实现该功能的VBA代码：

Sub CopyTable()
    Dim tbl As Table
    Dim tblCopy As Table
    Dim numCopies As Integer
    Dim i As Integer
    
    '选择要复制的表格
    Set tbl = Selection.Tables(1)
    
    '输入要复制的次数
    numCopies = InputBox("请输入要复制的次数：")
    
    '循环复制表格
    For i = 1 To numCopies
        '复制表格
        tbl.Range.Copy
        '粘贴表格
        Set tblCopy = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=tbl.Rows.Count, NumColumns:=tbl.Columns.Count)
        tblCopy.Range.PasteExcelTable False, False, False
        '移动光标到下一个位置
        Selection.MoveDown Unit:=wdTable
        Selection.MoveDown Unit:=wdLine
    Next i
    
End Sub

使用方法：
1. 打开Word文档，进入开发者模式
2. 点击“宏”按钮，输入“CopyTable”作为宏名，点击“创建”按钮
3. 在弹出的VBA编辑器中复制上述代码
4. 返回Word文档，选择要复制的表格
5. 点击“宏”按钮，选择“CopyTable”宏，点击“运行”按钮
6. 弹出输入框，输入要复制的次数，点击“确定”按钮
7. 复制完成后，移动光标到下一个位置即可

注意事项：
1. 代码只能选择一个带合并单元格的表格进行复制
2. 复制的表格会连同格式一起复制，如果需要修改格式，请自行调整
3. 复制的表格会依次粘贴在选择的位置下方