Разделить значения таблицы в документе word из excel средствами vba

[xamillion]

Что имеем:
- Microsoft Office 2003
- документ word
- книга excel

В документе есть записи разделенные разрывом строки. Необходимо эти записи разделить линией перед открытием макросом из excel...

Пример для наглядности прилагается.

[EducatedFool]

Необходимо эти записи разделить линией перед открытием макросом из excel...

А зачем?
Случайно, не для последующей вставки этой таблички в Excel?

Если да, то совсем необязательно это делать в документе Word - проще разделить текст по строкам уже в Excel

[xamillion]

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

А зачем?
Случайно, не для последующей вставки этой таблички в Excel?

Если да, то совсем необязательно это делать в документе Word - проще разделить текст по строкам уже в Excel

В том то и дело что в Excel вставлять ее не надо! Хотя, если перенести в Excel разбить и вставить обратно в Word ... но это как-то по-китайски выходит. Ну лишь бы работало

[xamillion]

Может есть какие варианты? подскажите, пожалуйста...

[EducatedFool]

Может есть какие варианты?

А что конкретно у вас не получается?

Алгоритм прост:
1) ищем в документе Word таблицу
2) в этой таблице перебираем все строки
2.1) для каждой этой строки проверяем, из скольких строк она состоит, и запоминаем максимальное значение
(колвоСтрок = ubound(split(txt$, chr(13))), где txt$ - текст ячейки)
2.2) Если максимальное кол-во строк = 1, то ничего не делаем
Если максимальное кол-во строк > 1, то:
добавляем ниже нужное кол-во строк
в цикле переносим отдельные строчки из "больших" ячеек в "маленькие"

PS: Этот вопрос имело смысл задать в разделе Microsoft Word - поэтому переношу тему туда

[xamillion]

хи... застрял на первом же пункте, т.к. с таблицами никогда не работал... пробую, но не выходит почему-то...