将光标所在段落选中
Selection.MoveUp unit:=wdParagraph
Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend
' 选择当前行
Selection.HomeKey unit:=wdLine
Selection.EndKey unit:=wdLine, Extend:=wdExtend
' 选择从光标至当前行尾的内容
Selection.EndKey unit:=wdLine, Extend:=wdExtend
' 移动光标至当前行首
Selection.HomeKey unit:=wdLine
' 移动光标至当前行尾
Selection.EndKey unit:=wdLine