Word Macro: Mova o cursor para baixo de uma linha

Question

Eu tenho uma macro que venho usando para mesclar duas células juntas em uma tabela de palavras, mas o que eu quero fazer é fazer o cursor descer por uma célula, para que eu possa pressionar repetidamente a tecla de atalho para repetir o comando mais e mais.

O código de macro que tenho (copiado e colado sem vergonha de uma página da Web) é o seguinte:

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

Eu tentei adicionar a seguinte linha logo antes da declaração 'End Sub'

Selection.MoveDown wdCell, 1

mas isso gera o erro, Run-time error '4120' Bad Parameter sempre que eu executo a macro.

Alguém pode me dizer como corrigir isso ou o que estou fazendo de errado?

    

Answer 1

Não faço ideia se isso pode ajudar, mas tenho o seguinte:

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