0
点赞
收藏
分享

微信扫一扫

word 横向合并单元

我阿霆哥 2022-05-20 阅读 158


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



举报

相关推荐

0 条评论