Выделение ячеек в опредленном столбце

[Busine2009]

Надо чтобы ячейки в последнем столбце имели правое поле равное нулю.

Это надо сделать для всех таблиц.

Последний столбец может вверху быть объединенным в несколько ячеек.

[viter.alex]

Сообщение от Busine2009

Надо чтобы ячейки в последнем столбце имели правое поле равное нулю.

Это надо сделать для всех таблиц.…

Макрос перебирает все строки в каждой таблице и для последней ячейки каждой строки устанавливает правое поле в 0.

Sub SetRightBorderToZero()
  Dim oTbl As Table, i&
  For Each oTbl In ActiveDocument.Tables
    For i = 1 To oTbl.Rows.Count
      oTbl.Cell(i, oTbl.Rows(i).Cells.Count).RightPadding = 0
    Next
  Next
End Sub

Сообщение от Busine2009

…Последний столбец может вверху быть объединенным в несколько ячеек.

Я так понимаю, что это замечание вызвано тем, что при попытке обратится к отдельному столбцу в таблице, где есть ячейки, объединенные по столбцам, возникает ошибка. Да, в этом случае нужно действовать через отдельные ячейки. Что я и сделал.

[Busine2009]

Работает макрос.