Макрорекодер vs руки

Попробуйте взять за основу код, приведенный ниже. В нем можно обойти все ячейки и узнать минимальную ширину в текущем столбце. В расчет берутся только ячейки, которые существуют как объект.

Sub processTableCells()
Dim tbl As Table
Dim iCol As Long
Dim iRow As Long
Dim trc As Long
Dim trr As Long
Dim mincolsz As Variant
Dim curcolsz As Variant
Dim cl As Cell
Set tbl = Nothing
On Error Resume Next
Set tbl = Selection.Tables(1)
On Error GoTo 0
If Not (tbl Is Nothing) Then
    trr = tbl.Rows.count
    trc = tbl.Columns.count
    For iCol = 1 To trc
        mincolsz = 999999
        For iRow = 1 To trr
            Set crg = Nothing
            On Error Resume Next
            Set cl = tbl.Rows(iRow).Cells(iCol)
            On Error GoTo 0
            If Not (cl Is Nothing) Then
                curcolsz = PointsToCentimeters(cl.Width)
                If curcolsz < mincolsz Then
                    mincolsz = curcolsz
                End If
            End If
        Next iRow
        'Here use mincolsz
        '. . .
    Next iCol
End If
End Sub

Крутая идея сделать изначаль объект как Nothing, а потом (при возможности) назначить его как существующий объект. Проблема только в том, что из-за объединения и, как следствие, ошибки -  они все Nothing по пути Tables.Rows.Cells и Tables.Columns.Cells

Визуально может быть вообще бардак невесть какой, а фактически они относятся к тому столбцу, к которому примыкают левой границей. В таблице, в которой есть и вертикальное и горизонтальное объединение ячеек, невозможно обращение к ячейке посредством указания номеров столбца или колонки - ваш код на моей таблице просто отказывается работать (например: ячейка(1) в rows(2) существует и не является объединённой, но по ошибке '5991' она не может определяться через строки-колонки) + при обращении по Columns будет выдаваться ошибка '5992'.
Я таки на 4-ый день нарыл кое-какой код, позволяющий разобраться с этой проблемой. Перебрать ячейки можно в том случае, если они будут являться элементами коллекции, а отнесённость их к колонке-строке можно через ColumnIndex-RowIndex. В дальнейшем можно использовать эти индексы и обращаться по точному адресу ячейки oTable.Cell(sName, ABC). С индексом определённого столбца можно выбрать самую узкую ячейку:

Sub Макрос1()
Dim oTable As Table
Dim oCell As Cell
For i = 1 To activeDocument.tables.count
Set oTable = ActiveDocument.Tables(i)
oTable.Select
For Each oCell In Selection.Range.Cells
    oCell.Select
    ABC = oCell.ColumnIndex
    sName = oCell.RowIndex
Next oCell
Next i
End Sub

Может кому пригодится.