|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.12.2023, 17:32 | #1 |
Пользователь
Регистрация: 27.10.2016
Сообщений: 26
|
Удаление пустых абзацев в ячейках таблиц
Здравствуйте всем!
Столкнулся со следующей задачей, которую не получается решить. В документе Word 60 из страниц встречается много таблиц. Файл прилагаю. Проблема в том, что в большинстве ячеек этих таблиц имеются пустые абзацы перед текстом и после него (т.е. в верху и внизу ячеек). Надо удалить их все. Нашел один макрос. При запуске он работает как надо, но затем в процессе код внезапно прекращает свою работу. Теперь вопрос: Можно ли: Изменить данный код так, чтобы обрабатывались все ячейки без исключения? Код:
Буду очень признателен за все ответы. С уважением, Ниетхан Последний раз редактировалось Niyetkhan; 02.12.2023 в 17:34. |
03.12.2023, 10:02 | #2 | |
Пользователь
Регистрация: 23.02.2018
Сообщений: 82
|
Цитата:
Код:
mailto: 2867077@gmail.com
Последний раз редактировалось Eugene-LS; 03.12.2023 в 10:29. |
|
03.12.2023, 16:52 | #3 |
Пользователь
Регистрация: 27.10.2016
Сообщений: 26
|
Спасибо Вам большое!
Всё обрабатывается быстро. Намного быстрее, чем предыдущий макрос. Результат оправдал ожидания. Во всех без исключения ячейках не осталось пустых абзацев. Еще раз благодарю, выручили! С уважением, Ниетхан |
03.12.2023, 17:17 | #4 |
Пользователь
Регистрация: 23.02.2018
Сообщений: 82
|
Это за счёт отказа от переходов по тексту (aCell.Select ...)
Ниже немного доработанная версия: Код:
mailto: 2867077@gmail.com
Последний раз редактировалось Eugene-LS; 03.12.2023 в 17:26. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Удаление пустых строк в таблице | Semen90 | Microsoft Office Word | 24 | 14.07.2022 12:28 |
Удаление пустых строк | Dessz_de_Laerre | Microsoft Office Excel | 7 | 24.08.2016 13:07 |
Удаление пустых в документе TXT, DOC | AlexDr | Microsoft Office Word | 7 | 20.03.2013 16:38 |
удаление абзацев | D_e_n_n | Microsoft Office Word | 4 | 10.03.2011 18:33 |