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

у меня есть макрос, который я использовал для слияния двух ячеек вместе в таблице 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 всякий раз, когда я выполнить макрос.

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

4
задан Bryan
21.02.2023 15:29 Количество просмотров материала 2416
Распечатать страницу

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
2
отвечен Paulie 2023-02-22 23:17

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх