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
posted @ 2011-08-30 09:54  ahuo  阅读(368)  评论(0编辑  收藏  举报