WORD表格选中部分单元格并平均分布列宽

北门锁钥

想请教一下怎么用VBA在WORD中选中图一表格中阴影部分的单元格，并使选中的单元格平均分布列宽，运行后可以达到图二的效果。

lss001

................................................................

北门锁钥

lss001 发表于 2020-4-3 10:38
Sub 遍历合并单元格()
    Dim oTable As Table, iCol
    For Each oTable In ActiveDocument.Tables

运行了以后是这样的file:///C:/Users/80647/Desktop/%E5%BE%AE%E4%BF%A1%E6%88%AA%E5%9B%BE_20200403110737.png

lss001

北门锁钥 发表于 2020-4-3 11:13
运行了以后是这样的

请上传附件，以测试！！

北门锁钥

附件已上传

北门锁钥

lss001 发表于 2020-4-3 11:16
请上传附件，以测试！！

附件已上传

lss001

北门锁钥 发表于 2020-4-3 13:11
附件已上传

Sub abc()
    Dim oTable As Table, iCol
    For Each oTable In ActiveDocument.Tables
            iCol = oTable.Columns.Count
            For i = iCol - 1 To iCol
                y = y + 1: x = x + oTable.Cell(2, i).Width
            Next
            For j = iCol - 1 To iCol
                For k = 2 To 7
                    oTable.Cell(k, j).Width = x / y
                Next
            Next
    Next
End Sub

北门锁钥

lss001 发表于 2020-4-3 14:19
Sub abc()
    Dim oTable As Table, iCol
    For Each oTable In ActiveDocument.Tables

谢谢，已测可用。不过如果我调整后，想把第一行下所有单元格都平均分布列宽，提示运行时错误“5941”：集合所要求的成员不存在。推测是第一列下有合并单元格的原因，不知该如何调整。调整后的代码如下：

1. Sub abcd()
   
2.     Dim oTable As Table, iCol
   
3.     For Each oTable In ActiveDocument.Tables
   
4.             iCol = oTable.Columns.Count
   
5.             For i = 1 To iCol
   
6.                 y = y + 1: x = x + oTable.Cell(2, i).Width
   
7.             Next
   
8.             For j = 1 To iCol
   
9.                 For k = 2 To oTable.Rows.Count
   
10.                     oTable.Cell(k, j).Width = x / y
    
11.                 Next
    
12.             Next
    
13.     Next
    
14. End Sub

复制代码

lss001

北门锁钥 发表于 2020-4-3 15:33
谢谢，已测可用。不过如果我调整后，想把第一行下所有单元格都平均分布列宽，提示运行时错误“5941”：集 ...

Sub tablescell1()
    Dim oTable As Table, iCol
    For Each oTable In ActiveDocument.Tables
            iCol = oTable.Columns.Count
            For i = 1 To iCol '获取第一行总列宽
                y = y + 1: x = x + oTable.Cell(1, i).Width
            Next
            For j = 1 To iCol '平均分配第一行列宽
                oTable.Cell(1, j).Width = x / y                 
            Next
    Next
End Sub

北门锁钥

lss001 发表于 2020-4-3 16:58
Sub tablescell1()
    Dim oTable As Table, iCol
    For Each oTable In ActiveDocument.Tables

这个代码应该是对第一行平均分布列。怎么对除第一行外所有单元格平均分布列呢，有合并单元格的话就会报错