word vba选择并移动光标

rivate Sub CommandButton2_Click()

      '选择文档全部内容（从WholeStory可猜出Story应是当前文档的意思）
    Selection.WholeStory

   '选择从光标至文档结尾的内容
    Selection.EndKey unit:=wdStory, Extend:=wdExtend

    '移动光标至当前段落的开始
    Selection.MoveUp unit:=wdParagraph
   
      '移动光标至当前段落的结尾
    Selection.MoveDown unit:=wdParagraph
    MsgBox Selection.Text

    '选中光标所在的行
    Selection.HomeKey unit:=wdLine
    Selection.EndKey unit:=wdLine, Extend:=wdExtend
    MsgBox Selection.Text
   
     '选择从光标至当前段落结尾的内容
    'Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend
    'MsgBox Selection.Text
   
   '选择从光标至当前段落开始的内容
    Selection.MoveUp unit:=wdParagraph, Extend:=wdExtend

    MsgBox Selection.Text
 

   '选中光标所在的段
     Dim myRange As Range
     
     
    Set myRange = Selection.Paragraphs(1).Range
    myRange.SetRange myRange.Start, myRange.End - 1
    myRange.Select
   MsgBox Selection.Text
    '选中光标所在的节
    Set myRange = Selection.Sections.Item(1).Range
    myRange.SetRange myRange.Start, myRange.End - 1
    myRange.Select
    MsgBox Selection.Text
   
    
   
   

  
End Sub