如何在Word VBA中合并两个表？

Dim mergedTable As Table
Set mergedTable = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=rowCount, NumColumns:=columnCount)

' 复制第一个表格的内容
firstTable.Range.Copy

' 将内容粘贴到新表格中
mergedTable.Range.PasteExcelTable False, False, False

Dim secondTable As Table
Set secondTable = ' 获取第二个表格对象

' 逐行添加第二个表格的内容到新表格中
For Each row In secondTable.Rows
    mergedTable.Rows.Add
    mergedTable.Rows(mergedTable.Rows.Count).Range.Text = row.Range.Text
Next row

' 删除第一个表格
firstTable.Delete

' 删除第二个表格
secondTable.Range.Delete