Умное объединение ячеек таблицы

[phbs]

Всем доброго дня.

Не первый день бьюсь над проблемой, надеюсь на помощь сообщества.
Суть такова:

1) Имеется большая таблица. В первом столбце - числовые значения формата "1234", разделенные разным количеством пустых ячеек. Я пытаюсь найти способ массово объединять пустые ячейки с находящимся выше числом, вплоть до следующего такого же блока.
Не могу организовать поиск пустой ячейки. Есть какой-то способ?

2) В другом столбце той же таблицы при экспорте из Excel текст разбился по строкам в отдельные ячейки. То есть надо как-то присоединить к вышестоящей ячейке ту, в которой нет прописных букв. Буквы находятся через подстановочные знаки, но что делать дальше - придумать пока не могу.

Есть мысли?

[Казанский]

2) Лучше в Excel перед экспортом замените символ перевода строки на пробел: Ctrl+H, найти: Ctrl+J, заменить на: пробел. После экспорта можно вернуть: Ctrl+Z.

[phbs]

Казанский, увы, не выходит. Таблица была в псевдографике, Экселем я её как раз делил на столбцы (данные - текст по столбцам). А на строки он текст раскидал автоматически.

[Казанский]

1) Я плохо знаю объектную модель Ворда, поэтому прошу не сильно смеяться над таким макросом:

Sub Макрос1()
Dim c As Cell
Selection.HomeKey unit:=wdStory
For Each c In ActiveDocument.Tables(1).Columns(1).Cells
    If Len(c.Range.Text) > 2 Then 'ячейка не пустая
        If Selection.Cells.Count > 1 Then Selection.Cells.Merge
        c.Select
    Else
        Selection.MoveDown unit:=wdLine, Count:=1, Extend:=wdExtend
    End If
Next
If Selection.Cells.Count > 1 Then Selection.Cells.Merge
End Sub

[Казанский]

> Таблица была в псевдографике

Поищите конвертор псевдографики, зачем изобретать велосипед

[phbs]

1) Пишет "отсутствует доступ к отдельным столбцам..."

2) Увы, с конвертером выходит ещё кривее и дольше

[shanemac51]

выделите 10-20 строк , скопируйте , создайте новый докуменр и вставьте туда строки

выложите образец