使用VBA合并Word文档中的多个表格

需求说明 #

• 将Word文档内所有表格合并到文档末尾的单个表格中，仅保留一次表头，实际场景中表格数量、各行行数均不固定。
• 当前效果：
  
• 期望效果：
  

现有代码问题 #

你提供的两段VBA代码存在逻辑错误，无法实现需求：

1. waldenwald中嵌套子过程walde属于语法错误，且循环逻辑混乱，会重复复制表格内容导致冗余；
2. kopierensuperlean仅简单复制前5个表格到末尾，会保留每个表格的表头，不符合仅保留一次表头的要求。

正确实现代码 #

Sub 合并所有表格()
    Dim 源表格 As Table, 目标表格 As Table
    Dim 行 As Row
    Dim 文档末尾 As Range
    
    ' 复制第一个表格的表头到文档末尾，创建目标表格
    Set 源表格 = ActiveDocument.Tables(1)
    Set 文档末尾 = ActiveDocument.Content
    文档末尾.Collapse direction:=wdCollapseEnd
    源表格.Rows(1).Range.Copy
    文档末尾.Paste
    Set 目标表格 = ActiveDocument.Tables(ActiveDocument.Tables.Count)
    
    ' 遍历所有表格，复制除表头外的行到目标表格
    For Each 源表格 In ActiveDocument.Tables
        For Each 行 In 源表格.Rows
            If 行.Index > 1 Then
                行.Range.Copy
                Set 文档末尾 = 目标表格.Range
                文档末尾.Collapse direction:=wdCollapseEnd
                文档末尾.Paste
            End If
        Next 行
    Next 源表格
    
    ' 可选：删除原始表格（不需要保留原表格时取消注释）
    ' Dim i As Integer
    ' For i = ActiveDocument.Tables.Count - 1 To 1 Step -1
    '     ActiveDocument.Tables(i).Delete
    ' Next i
End Sub

代码说明 #

1. 创建目标表格：以第一个表格的表头为基础，在文档末尾生成新表格作为合并后的目标；
2. 复制内容行：遍历所有表格，仅复制每个表格的第二行及以后的内容，追加到目标表格末尾；
3. 可选清理：如果不需要保留原始表格，可取消注释最后一段代码删除所有原表格。

内容的提问来源于stack exchange，提问作者Cedric van Ravesteijn