![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 23.05.2009
Сообщений: 167
|
![]()
Никто не подскажет, как удалить оступы (те, что настраиваются в диалоговом окне "Абзац") в последней ячейке каждой строки каждой таблицы в документе, т.е. ячейках последнего столбца каждой таблицы.
Я хочу в этих ячейках сделать правое поле равным нулю, но т.к. люди прикладывают свои руки к документам, а именно двигают текст в ячейках с помощью команд абзаца вместо того, чтобы использовать команды таблицы, текст отображается неправильно. Последний раз редактировалось Busine2009; 30.05.2009 в 07:40. |
![]() |
![]() |
![]() |
#2 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
![]()
В макросе из этого сообщения заменяем строчку
Код:
Код:
Лучше день потерять — потом за пять минут долететь!©
|
![]() |
![]() |
![]() |
#3 |
Новичок
Джуниор
Регистрация: 23.05.2009
Сообщений: 167
|
![]()
Спасибо, работает, правда, я там своими кривыми руками внес кое-какие изменения.
|
![]() |
![]() |
![]() |
#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 таблиц, то отыскивать такую таблицу долго. |
![]() |
![]() |
![]() |
#5 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
![]()
Я так понимаю, что ошибка возникает, если в таблице есть ячейки, объедиенные по строкам.
И что вы хотите? Чтобы эта таблица выделялась или все-таки установить в ней границы? Немного дополнив код, можно будет выделять проблемную таблицу: Код:
Код:
Код:
Лучше день потерять — потом за пять минут долететь!©
Последний раз редактировалось viter.alex; 06.06.2009 в 15:27. |
![]() |
![]() |
![]() |
#6 |
Новичок
Джуниор
Регистрация: 23.05.2009
Сообщений: 167
|
![]()
Естественно, хочется, чтобы в ней устанавливались нужные параметры.
А еще, можно сделать так, чтобы макрос применялся к таблицам определенной ширины? Что если таблица шире определенного размера, то макрос к ней не должен применяться? |
![]() |
![]() |
![]() |
#7 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
![]()
Неужели самостоятельно это так трудно сделать? Ровно две строчки кода для проверки ширины таблицы
Лучше день потерять — потом за пять минут долететь!©
|
![]() |
![]() |
![]() |
#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 |