|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.05.2009, 07:32 | #1 |
Новичок
Джуниор
Регистрация: 23.05.2009
Сообщений: 167
|
Удаление отступов в последней ячейке каждой строки в каждой таблице
Никто не подскажет, как удалить оступы (те, что настраиваются в диалоговом окне "Абзац") в последней ячейке каждой строки каждой таблицы в документе, т.е. ячейках последнего столбца каждой таблицы.
Я хочу в этих ячейках сделать правое поле равным нулю, но т.к. люди прикладывают свои руки к документам, а именно двигают текст в ячейках с помощью команд абзаца вместо того, чтобы использовать команды таблицы, текст отображается неправильно. Последний раз редактировалось Busine2009; 30.05.2009 в 07:40. |
30.05.2009, 13:15 | #2 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
В макросе из этого сообщения заменяем строчку
Код:
Код:
Лучше день потерять — потом за пять минут долететь!©
|
02.06.2009, 21:24 | #3 |
Новичок
Джуниор
Регистрация: 23.05.2009
Сообщений: 167
|
Спасибо, работает, правда, я там своими кривыми руками внес кое-какие изменения.
|
05.06.2009, 22:29 | #4 |
Новичок
Джуниор
Регистрация: 23.05.2009
Сообщений: 167
|
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 таблиц, то отыскивать такую таблицу долго. |
06.06.2009, 10:40 | #5 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Я так понимаю, что ошибка возникает, если в таблице есть ячейки, объедиенные по строкам.
И что вы хотите? Чтобы эта таблица выделялась или все-таки установить в ней границы? Немного дополнив код, можно будет выделять проблемную таблицу: Код:
Код:
Код:
Лучше день потерять — потом за пять минут долететь!©
Последний раз редактировалось viter.alex; 06.06.2009 в 15:27. |
06.06.2009, 10:44 | #6 |
Новичок
Джуниор
Регистрация: 23.05.2009
Сообщений: 167
|
Естественно, хочется, чтобы в ней устанавливались нужные параметры.
А еще, можно сделать так, чтобы макрос применялся к таблицам определенной ширины? Что если таблица шире определенного размера, то макрос к ней не должен применяться? |
06.06.2009, 12:19 | #7 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Неужели самостоятельно это так трудно сделать? Ровно две строчки кода для проверки ширины таблицы
Лучше день потерять — потом за пять минут долететь!©
|
06.06.2009, 12:27 | #8 |
Новичок
Джуниор
Регистрация: 23.05.2009
Сообщений: 167
|
Окей, попробую сам.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Редактирование каждой строки | V@mpir | Общие вопросы Delphi | 4 | 20.05.2009 23:28 |
Заменить максимальный по модулю элемент каждой строки на противоположный по знаку | bestlover | Помощь студентам | 7 | 06.04.2009 18:06 |
Первый нечетный элемент каждой строки удвоить (предполагается, что в каждой строке есть нечетный элемент | Галина002 | Помощь студентам | 1 | 18.03.2009 06:30 |
Определить максимальный по модулю элемент каждой строки. | (Kate) | Помощь студентам | 2 | 29.11.2008 21:05 |
всплывающие подсказки для каждой строки CListBox! | mahsus | Общие вопросы .NET | 0 | 01.04.2008 08:41 |