Удаление\добавление ячейки в таблице

[Rindroid]

Допустим, есть таблица в два столбца. Мне нужно удалить или добавить в один столбец ячейку так, чтобы произошёл сдвиг всех нижележащих ячеек. Это выполнимо?

[rami]

В меню "Вставка" —> "Ячейки..."

[Rindroid]

В меню "Вставка" —> "Ячейки..."

Нет такого пункта меню, офис новейший. Если не понятно, таблица в райтере, а не калке.

[Aleksandr H.]

В меню "Вставка" —> "Ячейки..."

Нет такого пункта меню, офис новейший. Если не понятно, таблица в райтере, а не калке.

И в результате в таблице будет первый столбец, например, с 2 строк, а второй столбец с 3?
как вариант
1 шаг: вставить новую строку
2 шаг: вырезать-вставить значение которые "не должны сдвинуться" начиная с строки п.1

[Rindroid]

И в результате в таблице будет первый столбец, например, с 2 строк, а второй столбец с 3?

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

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

[JohnSUN]

Я для такой "работы" в своё время жал два раза Ctrl+Shift+End (первый выделял текст одной ячейки, второй - все ячейки второй колонки до конца), потом Shift+Del (вырезал выделение в буфер обмена, при этом курсор всё ещё оставался в последней ячейки таблицы), жал Tab (чтобы добавить новую строку), долго и нудно листал таблицу вверх, чтобы найти начало фрагмента и жал Shift+Insert (вставлял текст из буфера обмена на одну ячейку ниже).

Потом, само собой, это надоело, перенес таблицу в Calc (там ячейка вставляется всего двумя нажатиями - Ctrl+Plus и Enter), быстро всё сделал и вернул во Writer

[Rindroid]

А как тогда перенести такую таблицу в калк и обратно? Пробовал копировать, не вышло.

[kompilainenn]

А как тогда перенести такую таблицу в калк и обратно? Пробовал копировать, не вышло.

1. скопировать всю таблицу
2. в Кальк меню Правка-вставить как...- форматированный текст RTF

[rami]

Нет такого пункта меню, офис новейший.

Ну нет, так будет Назначьте клавиши или иконки на панели инструментов для макросов:

Код Выделить Развернуть

Sub SdvigVniz   Dim oVC, oCell, x%, y%, z%
oVC=ThisComponent.getCurrentController().getViewCursor()
If IsEmpty(oVC.Cell) Or IsEmpty(oVC.TextTable) Then Exit Sub
x=asc(oVC.Cell.CellName)-65
y=val(mid(oVC.Cell.CellName,2))-1
z=UBound(oVC.TextTable.DataArray)
oCell=oVC.TextTable.getCellRangeByPosition(x,y,x,z).DataArray
oVC.Cell.String=""
oVC.TextTable.getRows().insertByIndex(z+1,1)
oVC.TextTable.getCellRangeByPosition(x,y+1,x,z+1).DataArray=oCell
End Sub
————————————————————————————————————
Sub SdvigVverx   Dim oVC, oCell, x%, y%, z%
oVC=ThisComponent.getCurrentController().getViewCursor()
If IsEmpty(oVC.Cell) Or IsEmpty(oVC.TextTable) Then Exit Sub
x=asc(oVC.Cell.CellName)-65
y=val(mid(oVC.Cell.CellName,2))-1
z=UBound(oVC.TextTable.DataArray)
oCell=oVC.TextTable.getCellRangeByPosition(x,y+1,x,z).DataArray
oVC.TextTable.getRows().removeByIndex(z,1)
oVC.TextTable.getCellRangeByPosition(x,y,x,z-1).DataArray=oCell
End Sub
Ставите курсор в нужную ячейку (выделять не обязательно) , выполняете макрос SdvigVniz , чтобы вернуть всё обратно выполняете макрос SdvigVverx
Ячейку можно выбирать в любом столбце, количество столбцов максимум 26

[Rindroid]

Вот это скилл! Спасибо)