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

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

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

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

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

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

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
Вы можете помочь в развитии сайта, сделав пожертвование:

Или помочь сайту популярной криптовалютой:

 

BTC Адрес: 1Pi3a4c6sJPbfF2sSYR2noy61DMBkncSTQ

 

ETH Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

LTC Адрес: LUyT9HtGjtDyLDyEbLJZ8WZWGYUr537qbZ

 

DOGE Адрес: DENN2ncxBc6CcgY8SbcHGpAF87siBVq4tU

 

BAT Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

XRP Адрес: rEb8TK3gBgk5auZkwc6sHnwrGVJH8DuaLh Депозит Tag: 105314946

 

USDT (ERC-20) Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

Яндекс Деньги: 410013576807538

 

Вебмани (R ещё работает): R140551758553 или Z216149053852

 

А тут весь список наших разных крипто адресов, может какой добрый человек пожертвует немного монет или токенов - получит плюсик в карму от нас :) Благо Дарим, за любую помощь!

 

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

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

  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

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

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

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

^ Наверх