Merge Table Cells

Question

Мне нужно написать макрос, чтобы объединить ячейки по вертикали таблицы в документе Word.

Я нашел один пример

With ActiveDocument.Tables(1) 
    Set Rng = .Cell(lv_srow, lv_sclm).Range 
    Rng.End = .Cell(lv_erow, lv_eclm).Range.End 
    Rng.Cells.Merge 
End With 

Этот код работает отлично для горизонтальных клеток сливающихся, но он не работает для вертикального слияния (например, расчесывании A1, B1, C1, как одну ячейку).

Answer 1

Это должно работать в обоих направлениях ... вам просто нужно быть осторожным относительно ссылок и Column в .Cell. Например