Статьи из блога
Статьи из блога
Преобразование всех таблиц документа в текст
Рубрика: Вопрос-Ответ, Макросы, Таблицы Word, Стили и форматирование
Метки: макросы | таблицы | форматирование
Понедельник, 27 октября 2008 г.
Просмотров: 1496
Подписаться на комментарии по RSS
Версия для печати
Метки: макросы | таблицы | форматирование
Понедельник, 27 октября 2008 г.
Просмотров: 1496
Подписаться на комментарии по RSS
Версия для печати
Максим спрашивает:
Преобразовать одну таблицу в текст — дело нехитрое. Но у меня очень часто возникает задача преобразовать ВСЕ таблицы документа в текст. А их может быть десятки и сотни (это типичная ситуация, когда открываешь веб-страницу.) Есть ли какое-нибудь решение?
Следующий макрос может решить эту проблему.
Разделителем между извлеченным текстом таблиц служит символ абзаца (пустая строка).
Sub AllTblsToText() 'все таблицы в текст Dim tbl As Table For Each tbl In ActiveDocument.Tables tbl.ConvertToText (wdSeparateByParagraphs) Next tbl End Sub
Поиск
Рубрики
Подписка
Читают
Обсуждают
страницы
сайты
статистика
Комментариев: 6
А не будет ли проще скопировать весь текст в clipboard, а затем вставить, убрав все форматирование (в том числе и таблицы):
Edit - Paste Special - Unformated text
это особенно актуально именно в случае копирования информации c Web-страниц - там порой форматирование бывает настолько "причудливым", что ой
Хе, а я через цикл For от последней таблицы до первой делал, не знал про For Each.
2My.Own.Word
А если в тексте есть таблицы? А если есть изменение форматиравание, например жирным, курсивом?
Я понимаю что нахожусь не в той теме но все же может мне кто то поможет, как мне с этого чуда сделать нормальную вордовскую таблицу желательно макросом так как таблицы бывают разные.... Буду очень благодарен
------------------------------------------------------------------
| 1 | 2 | 3 | 4 |
|----+--------------------+--------------------+-----------------|
|23 |Включено | | |
| |довгострокові | | |
| |біологічні активи | | |
| |до групи вибуття: | | |
| |--------------------+--------------------+-----------------|
| |- оцінені за |286 "Необоротні |16 "Довгострокові|
| |справедливою |активи та групи |біологічні |
| |вартістю |вибуття, утримувані |активи" |
| | |для продажу" | |
| |--------------------+--------------------+-----------------|
| |- оцінені за |134 "Накопичена |16 "Довгострокові|
| |первісною вартістю: |амортизація |біологічні |
| |сума зносу |довгострокових |активи" |
| | |біологічних активів"| |
| |--------------------+--------------------+-----------------|
| |сума перевищення |949 "Інші витрати |16 "Довгострокові|
| |залишкової вартості |операційної |біологічні |
| |об'єкта |діяльності" |активи" |
| |довгострокових | | |
| |біологічних активів | | |
| |над його | | |
| |справедливою | | |
| |вартістю | | |
| |--------------------+--------------------+-----------------|
| |залишкова вартість |286 "Необоротні |16 "Довгострокові|
| | |активи та групи |біологічні |
| | |вибуття, утримувані |активи" |
| | |для продажу" | |
|----+--------------------+--------------------+-----------------|
|24 |Реалізація | | |
| |довгострокових | | |
| |біологічних активів | | |
| |з групи вибуття: | | |
| |--------------------+--------------------+-----------------|
| |- визнання доходу |36 "Розрахунки з |712 " Дохід від |
| | |покупцями та |реалізації інших |
| | |замовниками" |оборотних |
| | | |активів" |
| |--------------------+--------------------+-----------------|
| |- сума податкового |712 "Дохід від |64 "Розрахунки за|
| |зобов'язання з ПДВ |реалізації інших |податками й |
| | |оборотних активів" |платежами" |
| |--------------------+--------------------+-----------------|
| |- собівартість |943 "Собівартість |286 "Необоротні |
| |групи вибуття |реалізованих |активи та групи |
| | |виробничих |вибуття, |
| | |запасів" |утримувані |
| | | |для продажу" |
------------------------------------------------------------------
Аноним, посмотрите вот эту тему на форуме (один к одному с вашим вопросом):
Замена текста на таблицу
Да но тот макрос не работает...
В таком случае рекомендую задать свой вопрос на форум и приложить ваш документ. Если знающие люди смогут помочь, то будет отлично.