1

Тема: SplitCell

Граждане, для удобства быстрого доступа, через хоткейс, написал себе деление ячейки на 2 строки. Делит на 2 строки, но если в этой строке уже разделил на 3 строки, т.е. применил макрос 2 раза - срабатывать он не хочет ("Делитель должен быть 3). Ну я, не будь дурак, конечно могу каждый раз менять на NumRows=3 или сделать 2 макроса, но это не ускоряет работу или, во втором случае, как-то перебор для простой задачи.  А теперь, внимание, вопрос! Что в чёрном ящике и как достичь-таки деления на 2 строки при уже совершённом делении на 3, если метод СплитЦеллс не даёт подсказок? (свойств у него только 3 - НамРоус, НамКоломнс и МерджБефорСплит)

Sub SplitCellOnTwoRows()
'Поделит ячейку, где установлен курсор на: число строк, число столбцов,
    Selection.Cells.Split NumRows:=2, NumColumns:=1, MergeBeforeSplit:=False
End Sub
Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

2

Re: SplitCell

Спасибо!
Это про Excel?

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

3

Re: SplitCell

Alex_Gur пишет:

Спасибо!
Это про Excel?

Нет, это про Word  smile И это не ирония.

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

4

Re: SplitCell

Нет, это про Word

Прошу прощения. Вернул Ваше сообщение обратно в раздел "Автоматизация".

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

5

Re: SplitCell

После первого прохода вашего кода выделенными оказываются две ячейки. Поэтому сбросьте выделение в начало, добавив в код строку:

Selection.Collapse Direction:=wdCollapseStart