word中如何对大量表格进行边框对齐？

辉宇

求助各位大佬，现在有一个内含多个表格的word文档，里面每张表格的右边框都没对齐，现在可以通过鼠标手动拖动对齐，但一张一张的操作实在太麻烦，请问有没有快捷一些的方法？表格见附件。

snow653124

我用最笨的方法，写了一个
思路是先计算首行的所有单元格的宽，然后从第二行开始，最后一个单元格的宽=第一行的总款-该行其他单元格的宽
可以实现你的效果
不过在运行时，提示
运行时错误' 5991' :
无法访问此集合中单独的行，因为表格有纵向合并的单元格。

其实这种办法已经算是失败了，即使后面用单元格合并再拆分，但你的表格应该是已经有数据了，这个合并、拆分，会使得原来的数据有问题，所以不用尝试单元格拆分调整边框了


再往下还需要改，先发一个半成品吧，我是初学的，还希望有老师提供更好的办法

snow653124

Sub 表格宽()
    Application.ScreenUpdating = False
    Dim vtab As Table, i%, j%, k%, n%, l%, 总宽 As Single, 部分宽 As Single
    For Each vtab In ActiveDocument.Tables '逐个表格
        '确定首行所有单元格的总宽，跟首行宽保持一致
        i = vtab.Rows(1).Cells.Count '单元格数，即列数
        总宽 = 0
        For l = 1 To i '逐列
            总宽 = 总宽 + vtab.Rows(1).Cells(l).Width
            Debug.Print 总宽
        Next
        '从第二行开始，最后一个单元格的宽=总宽-改行其他单元格的宽
        For k = 2 To vtab.Rows.Count '逐行
            j = vtab.Rows(k).Cells.Count '该行列数
            部分宽 = 0
            For n = 1 To j - 1
                部分宽 = 部分宽 + vtab.Rows(k).Cells(j).Width
            Next
            vtab.Rows(k).Cells(j).Width = CentimetersToPoints((总宽 - 部分宽) / 28.35)
        Next
    Next
    Application.ScreenUpdating = True
End Sub

snow653124

Sub 表格宽()
    Application.ScreenUpdating = False
    Dim vtab As Table, i%, j%, k%, n%, l%, 总宽 As Single, 部分宽 As Single
    For Each vtab In ActiveDocument.Tables '逐个表格
        '确定首行所有单元格的总宽，跟首行宽保持一致
        i = vtab.Rows(1).Cells.Count '单元格数，即列数
        总宽 = 0
        For l = 1 To i '逐列
            总宽 = 总宽 + vtab.Rows(1).Cells(l).Width
            Debug.Print 总宽
        Next
        '从第二行开始，最后一个单元格的宽=总宽-改行其他单元格的宽
        For k = 2 To vtab.Rows.Count '逐行
            j = vtab.Rows(k).Cells.Count '该行列数
            部分宽 = 0
            For n = 1 To j - 1
                部分宽 = 部分宽 + vtab.Rows(k).Cells(j).Width
            Next
            vtab.Rows(k).Cells(j).Width = CentimetersToPoints((总宽 - 部分宽) / 28.35)
        Next
    Next
    Application.ScreenUpdating = True
End Sub

wdpfox

表格中有合并单元格，不好弄

We meet by chance like patches of drifting duckweed,  
May everything be fine with you everyday !
  （你我萍水相逢，愿君一切安好！）