Макрос слова: переместить курсор вниз на строку

Question

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

Код макроса, который у меня есть (бесстыдно копируется и вставляется с веб-страницы), выглядит следующим образом:

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 при каждом выполнении макроса.

Может кто-нибудь сказать мне, как это исправить или что я делаю не так?

Answer 1

Не знаю, может ли это помочь, но у меня есть следующее:

Sub Merges2Cols()
Dim nbLines As Integer
    nbLines = 10     'you'd have to count the number of lines you want to merge
    For i = 1 To nbLines
        Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
        Selection.Cells.Merge
        Selection.MoveDown Unit:=wdLine, Count:=1
    Next
End Sub