word中，左右两个表格 如何合并？

yf22战斧

上下表格合并倒是容易，但左右合并不知道咋整、、、、

kingtau

因无实际文档，示例附件展现的只是一种思路，具体应用自己改。
表格选择和粘贴方式是亮点，其它没啥技术含量。
表格合并示例.zip (17.64 KB, 下载次数: 5)

2020-1-3 23:33 上传

点击文件名下载附件

1. Sub 表格合并()
   
2. Dim istart%, iend%
   
3.     With ActiveDocument
   
4.         istart = .Tables(1).Rows(1).Range.Start
   
5.         iend = .Tables(1).Rows(1).Range.End - 1
   
6.         .Range(istart, iend).Select
   
7.     End With
   
8.     With Selection
   
9.         .SelectColumn: .Cut
   
10.         ActiveDocument.Tables(1).Rows(1).Cells(1).Select
    
11.         .Collapse: .PasteAndFormat 0
    
12.         .Tables(1).Rows.WrapAroundText = False
    
13.         .Tables(1).Rows.Alignment = 1
    
14.         .Collapse
    
15.     End With
    
16. End Sub

复制代码