И снова объединение ячеек в Word

[Samkoff]

возможно ли в Word объединить ячейки так как в Excel, чтобы осталось только левое верхнее содержимое ячейки, а не все данные со всех ячеек попали в одну?

До



После



Какой результат хочется получить

[Ципихович Эндрю]

Вы так спрашиваете как будто у Вас рук нет(извините)
Во всяком случае ответ за пару минут очевиден
Даааааааааааааааа

[Samkoff]

Ну если Вы такой гений, то скажите мне свой вариант. Удалять руками мне не интересно, так как таблиц много и данные везде разные. Выгрузка данных происходит из приложения.

[Ципихович Эндрю]

Удалять руками мне не интересно - об этом ранее не слова не было, буков не жалейте
а так щас попробую

[Ципихович Эндрю]

Sub P3()

'Первая таблица Word в активном документе, первая строка таблицы Word.
'Будет ошибка, если ячейки будут объединены.
Dim oRow As Word.Row
Dim oCell As Word.Cell
Set oRow = ActiveDocument.Tables(1).Rows(1)
For Each oCell In oRow.Cells
    oCell.Range.Text = Trim$(Left(oCell.Range.Text, Len(oCell.Range.Text) - 2))
    RangeText = RangeText & oCell.Range.Text
Next oCell

Selection.TypeText Text:=RangeText
'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта
Set oRow = Nothing
Set oCell = Nothing
End Sub

[Samkoff]

Спасибо, за совет.