у меня есть макрос, который я использовал для слияния двух ячеек вместе в таблице word, но то, что я хочу сделать, это заставить курсор двигаться вниз на одну ячейку, чтобы я мог неоднократно нажимать клавишу быстрого доступа, чтобы повторить команду снова и снова.
код макроса, который у меня есть (shamelessy скопирован и вставлен с веб-страницы), выглядит следующим образом:
Sub MergeWithCellToRight()
'
' MergeWithCellToRight Macro
'
'
Dim oRng As Range
Dim oCell As Cell
Set oCell = Selection.Cells(1)
If oCell.ColumnIndex = Selection.Rows(1).Cells.Count Then
MsgBox "There is no cell to the right?", vbCritical, "Error"
Exit Sub
End If
Set oRng = oCell.Range
oRng.MoveEnd wdCell, 1
oRng.Cells.Merge
Selection.Collapse wdCollapseStart
End Sub
Я попытался добавить следующую строку перед оператором 'End Sub'
Selection.MoveDown wdCell, 1
но это генерирует ошибку Run-time error '4120' Bad Parameter
всякий раз, когда я выполнить макрос.
может кто-нибудь сказать мне, как это исправить или что я делаю неправильно?