摘要: 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) 推荐(0) 编辑