word 横向合并单元

Selection.MoveRight Unit:=wdCharacter, Count:=3, Extend:=wdExtend

    For x = 1 To 20

    Selection.Cells.Merge

    Selection.MoveDown Unit:=wdLine, Count:=1

    Selection.MoveRight Unit:=wdCharacter, Count:=3, Extend:=wdExtend

    Next