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