摘要： 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 阅读全文