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

[Busine2009]

Никто не подскажет, как удалить оступы (те, что настраиваются в диалоговом окне "Абзац") в последней ячейке каждой строки каждой таблицы в документе, т.е. ячейках последнего столбца каждой таблицы.

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

[viter.alex]

В макросе из этого сообщения заменяем строчку

oTbl.Cell(i, oTbl.Rows(i).Cells.Count).RightPadding = 0

на одну из следующих строчек, или на все сразу

      'Отступ первой строки
      oTbl.Cell(i, oTbl.Rows(i).Cells.Count).Range.ParagraphFormat.FirstLineIndent = 0
      'Отступ слева
      oTbl.Cell(i, oTbl.Rows(i).Cells.Count).Range.ParagraphFormat.LeftIndent = 0
      'Отступ справа
      oTbl.Cell(i, oTbl.Rows(i).Cells.Count).Range.ParagraphFormat.RightIndent = 0

[Busine2009]

Спасибо, работает, правда, я там своими кривыми руками внес кое-какие изменения.

[Busine2009]

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).RightPadd ing = 0
Next
Next
End Sub

Переделал этот макрос под первую ячейку в каждой строке. Но если строка была объединена, то не работает и не указывается с какой таблицей проблемы. Как можно решить эту проблему. Если в документе 100 таблиц, то отыскивать такую таблицу долго.

[viter.alex]

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

Sub SetRightBorderToZero()
  On Error Resume Next
  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
      If Err.Number <> 0 Then Err.Clear: oTbl.Select: Exit Sub
    Next
  Next
End Sub

Если строчку

If Err.Number <> 0 Then Err.Clear: oTbl.Select: Exit Sub

заменить на:

If Err.Number <> 0 Then Err.Clear

то неправильная таблица будет просто пропускаться.

[Busine2009]

Естественно, хочется, чтобы в ней устанавливались нужные параметры.

А еще, можно сделать так, чтобы макрос применялся к таблицам определенной ширины? Что если таблица шире определенного размера, то макрос к ней не должен применяться?

[viter.alex]

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

…А еще, можно сделать так, чтобы макрос применялся к таблицам определенной ширины? Что если таблица шире определенного размера, то макрос к ней не должен применяться?

Неужели самостоятельно это так трудно сделать? Ровно две строчки кода для проверки ширины таблицы

[Busine2009]

Окей, попробую сам.