Таблицы из Word (doc) в (txt)

[Sasha_Smirnov]

А нельзя ли тем же файнридером, например, из дока (doc) делать картинку, а её в свою очередь читать как текст (txt)? (Сам не пробовал, но видел "красиво" выровненные таблицы ПДД и прочих законов, — неужели их посимвольно ровняли 10 тысяч секретарш?!)


Алекс, комментарии здесь надо выделять и справа — иначе видишь, сколько зелени!

(А также есть биби-тэг [vb][/vb], но не знаю, как он тут...)

[shadowbeast]

Сообщение от viter.alex

Вот что значит правильно сформулировать задачу! Разбить таблицы — это не в текст их конвертить.

Спасибо за макрос, опробую.
Но разбивка таблицы, пол задачи. Когда я разбивал таблицы, потом другие люди в той кривой проге для коей предназначались документы их правили. Соединяли строки вместе, удаляя лишние линии псевдографики.

Ну крайний случай найти мифическую програмку да разобрать на части)

PS>насчёт правки макроса - не особо шарю в VBA, что можно почитать для понимания основ?

[viter.alex]

Сообщение от shadowbeast

…PS>насчёт правки макроса - не особо шарю в VBA, что можно почитать для понимания основ?

http://word.mvps.org/FAQs/MacrosVBA/
http://www.citforum.ru/programming/vb/vba_word/

Добавлено позже

Сообщение от Sasha_Smirnov

…(А также есть биби-тэг , но не знаю, как он тут...)

Здесь он не поддерживается . Видишь он даже не распознался, а напечатался как текст, хотя для того, чтобы показать в посте тег, который распознается, нужно использовать тег [noparse][/noparse]. Странно, но VB не подсвечивается вообще. Эту тему я поднимал, но, думаю, что до введения нового движка на форуме ничего не изменится

[shadowbeast]

Макрос не сработал, почему-то.
Взял сходу пустую табличку. 5 стобцов, 15 строк. В паре из них объединил ячейки в строках.
Но макрос никак не прореагировал. Всё как был, так и осталось.

+ натолкнулся на таблицу в которой оказались объединены ячейки в столбцах. Это как-то можно вставить в макрос, дабы разбивалось?

[viter.alex]

Вот так звучала задача.

Сообщение от shadowbeast

…Я думал о возможности сравнения. Если в строке большее или меньшее количество ячеек чем в предыдущей - её надо разбить. Но не знаю, как это реализовать. И наверное это бы было прекрасно применимо к огромному документу..

Макрос это делает, т.е. разбивает таблицу, если количество ячеек в соседних строках разное.

Ты говоришь про объединенные ячейки — это несколько иное. Нужно писать по-другому.

Добавлено позже
Если речь идет об объединенных ячейках (Merge), тогда нужно как-то определять, что в строке есть объединеные ячейки и разбивать их

[shadowbeast]

А как иначе можно получить разное количество ячеек в строках одной таблицы? Разве есть ещё способ кроме объединения?

Я потому и сказл про сравнения, что вручную так и делал) Смотрел в таблицу. Вижу- количество ячеек разное. Разбиваю хоткеем.

[viter.alex]

Сообщение от shadowbeast

А как иначе можно получить разное количество ячеек в строках одной таблицы? Разве есть ещё способ кроме объединения?…

Обратным действием — разбиением
Попробуй в макросе заменить строку

oRow.Previous.Cells.Count

На

oTbl.Columns.Count

Дело в том, что в строках с объединенными ячейками количество ячеек отличается от количества столбцов в таблице. А количество столбцов всегда равно максимальному количеству ячеек в одной из строк. Тоже самое со строками.
Таким образом, мы получаем метод определения, что в таблице есть объединенные ячейки. Правда, неизвестно где именно они располагаются, поэтому избавится от объединенных ячеек можно только разбиением соответствующего столбца или строки.

[shadowbeast]

Строку заменил - никак)
Также простая таблица, 3 ячейки - объединённые.

[viter.alex]

Сообщение от shadowbeast

Строку заменил - никак)
Также простая таблица, 3 ячейки - объединённые.

Sorry.
Вот так надо. Но это только для объединенных строк. Как делать для столбцов я еще не знаю

If oRow.Cells.Count <> oRow.Previous.Cells.Count Or oRow.Cells.Count <> oTbl.Columns.Count _
    Then oTbl.Split oRow

Добавлено позже
Оказывается, что если есть объединенные ячейки в строках, то отсутствует доступ к отдельным столбцам, и наоборот, если есть ячейки объединенные в столбцах, то нет доступа к отдельным строкам. Можно на этом сыграть, но как я еще не знаю

[shadowbeast]

Вставил, всё равно никак)
Видимо ещё в дополнение к ссылкам придётся справку Винды по Бейсику почитать.
Либо найти таки конвертер из doc в ASCII )))