Статьи из блога
Преобразование всех таблиц документа в текст
Максим спрашивает:
Преобразовать одну таблицу в текст — дело нехитрое. Но у меня очень часто возникает задача преобразовать ВСЕ таблицы документа в текст. А их может быть десятки и сотни (это типичная ситуация, когда открываешь веб-страницу.) Есть ли какое-нибудь решение?
Следующий макрос может решить эту проблему.
Разделителем между извлеченным текстом таблиц служит символ абзаца (пустая строка).
Sub AllTblsToText() 'все таблицы в текст Dim tbl As Table For Each tbl In ActiveDocument.Tables tbl.ConvertToText (wdSeparateByParagraphs) Next tbl End Sub
Рубрика: Стили и форматирование, Таблицы Word, Макросы, Вопрос-Ответ
Метки: макросы | таблицы | форматирование
Просмотров: 24108
Подписаться на комментарии по RSS
Версия для печати
Метки: макросы | таблицы | форматирование
Просмотров: 24108
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 10 вопросов и ответов по редактору Word (1 часть)
- 3 способа очистки списка недавно открытых документов
- Word 2007: добавляем свою вкладку и свои команды
- Word 2007: полотно, рисунки, линии
- Word 2007: смена формата сохранения файла
- Word 97 - решение проблемы с отображением символов на линейке
- Word 97. Слияние документов как один из способов упростить свою работу
- Абзац с цветным фоном
- Автозаполняемые колонтитулы
- Автоматизация текстового набора в Word
- Автоматическая запись макроса
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Автоформат документов
- Белый текст на синем фоне в Word 2007
- Буквица
- Быстрая смена ориентации страниц документа
- Быстрое изменение стиля форматирования текста
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрое удаление границ у таблицы
- Быстрый ввод текста с помощью команды =rand()
Комментариев: 7
А не будет ли проще скопировать весь текст в 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 "Необоротні |
| |групи вибуття |реалізованих |активи та групи |
| | |виробничих |вибуття, |
| | |запасів" |утримувані |
| | | |для продажу" |
------------------------------------------------------------------
Аноним, посмотрите вот эту тему на форуме (один к одному с вашим вопросом):
Замена текста на таблицу
Да но тот макрос не работает...
В таком случае рекомендую задать свой вопрос на форум и приложить ваш документ. Если знающие люди смогут помочь, то будет отлично.
В ворд 2013 не работает :( Что можно поменять?