将光标所在段落选中

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

05-11 10:53