Статьи из блога

Преобразование всех таблиц документа в текст

Максим спрашивает:

Преобразовать одну таблицу в текст — дело нехитрое. Но у меня очень часто возникает задача преобразовать ВСЕ таблицы документа в текст. А их может быть десятки и сотни (это типичная ситуация, когда открываешь веб-страницу.) Есть ли какое-нибудь решение?

Следующий макрос может решить эту проблему.

Разделителем между извлеченным текстом таблиц служит символ абзаца (пустая строка).

Sub AllTblsToText()
'все таблицы в текст
Dim tbl As Table
For Each tbl In ActiveDocument.Tables
   tbl.ConvertToText (wdSeparateByParagraphs)
Next tbl
End Sub
twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Комментариев: 7

  1. My.Own.Word
    27.10.2008 в 15:58 | #1

    А не будет ли проще скопировать весь текст в clipboard, а затем вставить, убрав все форматирование (в том числе и таблицы):

    Edit - Paste Special - Unformated text

    это особенно актуально именно в случае копирования информации c Web-страниц - там порой форматирование бывает настолько "причудливым", что ой smile

  2. Серёга
    02.12.2008 в 13:35 | #2

    Хе, а я через цикл For от последней таблицы до первой делал, не знал про For Each.

    2My.Own.Word

    А если в тексте есть таблицы? А если есть изменение форматиравание, например жирным, курсивом?

  3. Аноним
    23.03.2010 в 18:15 | #3

    Я понимаю что нахожусь не в той теме но все же может мне кто то поможет, как мне с этого чуда сделать нормальную вордовскую таблицу желательно макросом так как таблицы бывают разные.... Буду очень благодарен

    ------------------------------------------------------------------

    | 1 | 2 | 3 | 4 |

    |----+--------------------+--------------------+-----------------|

    |23 |Включено | | |

    | |довгострокові | | |

    | |біологічні активи | | |

    | |до групи вибуття: | | |

    | |--------------------+--------------------+-----------------|

    | |- оцінені за |286 "Необоротні |16 "Довгострокові|

    | |справедливою |активи та групи |біологічні |

    | |вартістю |вибуття, утримувані |активи" |

    | | |для продажу" | |

    | |--------------------+--------------------+-----------------|

    | |- оцінені за |134 "Накопичена |16 "Довгострокові|

    | |первісною вартістю: |амортизація |біологічні |

    | |сума зносу |довгострокових |активи" |

    | | |біологічних активів"| |

    | |--------------------+--------------------+-----------------|

    | |сума перевищення |949 "Інші витрати |16 "Довгострокові|

    | |залишкової вартості |операційної |біологічні |

    | |об'єкта |діяльності" |активи" |

    | |довгострокових | | |

    | |біологічних активів | | |

    | |над його | | |

    | |справедливою | | |

    | |вартістю | | |

    | |--------------------+--------------------+-----------------|

    | |залишкова вартість |286 "Необоротні |16 "Довгострокові|

    | | |активи та групи |біологічні |

    | | |вибуття, утримувані |активи" |

    | | |для продажу" | |

    |----+--------------------+--------------------+-----------------|

    |24 |Реалізація | | |

    | |довгострокових | | |

    | |біологічних активів | | |

    | |з групи вибуття: | | |

    | |--------------------+--------------------+-----------------|

    | |- визнання доходу |36 "Розрахунки з |712 " Дохід від |

    | | |покупцями та |реалізації інших |

    | | |замовниками" |оборотних |

    | | | |активів" |

    | |--------------------+--------------------+-----------------|

    | |- сума податкового |712 "Дохід від |64 "Розрахунки за|

    | |зобов'язання з ПДВ |реалізації інших |податками й |

    | | |оборотних активів" |платежами" |

    | |--------------------+--------------------+-----------------|

    | |- собівартість |943 "Собівартість |286 "Необоротні |

    | |групи вибуття |реалізованих |активи та групи |

    | | |виробничих |вибуття, |

    | | |запасів" |утримувані |

    | | | |для продажу" |

    ------------------------------------------------------------------

  4. 23.03.2010 в 21:21 | #4

    Аноним, посмотрите вот эту тему на форуме (один к одному с вашим вопросом):

    Замена текста на таблицу

  5. Аноним
    25.03.2010 в 09:04 | #5

    Да но тот макрос не работает...

  6. 25.03.2010 в 13:44 | #6

    В таком случае рекомендую задать свой вопрос на форум и приложить ваш документ. Если знающие люди смогут помочь, то будет отлично.

  7. Аноним
    27.04.2020 в 14:25 | #7

    В ворд 2013 не работает :( Что можно поменять?

Оставьте комментарий!

(обязательно)

^ Наверх