Selection.MoveDown Unit:=wdLine, Count:=1'光標下移一行

    ’選中光標所在行

    With Selection

        .HomeKey Unit:=wdLine, Extend:=wdExtend

        .MoveEnd Unit:=wdLine, Count:=1

    End With

移動光標至文檔開始

Selection.HomeKey unit:=wdStory

下面的供參考:

Sub MoveToCurrentLineStart()

'移動光標至當前行首

Selection.HomeKey unit:=wdLine

End Sub

Sub MoveToCurrentLineEnd()

'移動光標至當前行尾

Selection.EndKey unit:=wdLine

End Sub

Sub SelectToCurrentLineStart()

'選擇從光標至當前行首的內容

Selection.HomeKey unit:=wdLine, Extend:=wdExtend

End Sub

Sub SelectToCurrentLineEnd()

'選擇從光標至當前行尾的內容

Selection.EndKey unit:=wdLine, Extend:=wdExtend

End Sub

Sub SelectCurrentLine()

'選擇當前行

Selection.HomeKey unit:=wdLine

Selection.EndKey unit:=wdLine, Extend:=wdExtend

End Sub

Sub MoveToDocStart()

'移動光標至文檔開始

Selection.HomeKey unit:=wdStory

End Sub

Sub MoveToDocEnd()

'移動光標至文檔結尾

Selection.EndKey unit:=wdStory

End Sub

Sub SelectToDocStart()

'選擇從光標至文檔開始的內容

Selection.HomeKey unit:=wdStory, Extend:=wdExtend

End Sub

Sub SelectToDocEnd()

'選擇從光標至文檔結尾的內容

Selection.EndKey unit:=wdStory, Extend:=wdExtend

End Sub

Sub SelectDocAll()

'選擇文檔全部內容（從WholeStory可猜出Story應是當前文檔的意思）

Selection.WholeStory

End Sub

Sub MoveToCurrentParagraphStart()

'移動光標至當前段落的開始

Selection.MoveUp unit:=wdParagraph

End Sub

Sub MoveToCurrentParagraphEnd()

'移動光標至當前段落的結尾

Selection.MoveDown unit:=wdParagraph

End Sub

Sub SelectToCurrentParagraphStart()

'選擇從光標至當前段落開始的內容

Selection.MoveUp unit:=wdParagraph, Extend:=wdExtend

End Sub

Sub SelectToCurrentParagraphEnd()

'選擇從光標至當前段落結尾的內容

Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend

End Sub

Sub SelectCurrentParagraph()

'選擇光標所在段落的內容

Selection.MoveUp unit:=wdParagraph

Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend

End Sub

Sub DisplaySelectionStartAndEnd()

'顯示選擇區的開始與結束的位置，注意：文檔第1個字符的位置是0

MsgBox ("第" & Selection.Start & "個字符至第" & Selection.End & "個字符")

End Sub

Sub DeleteCurrentLine()

'刪除當前行

Selection.HomeKey unit:=wdLine

Selection.EndKey unit:=wdLine, Extend:=wdExtend

Selection.Delete

End Sub

Sub DeleteCurrentParagraph()

'刪除當前段落

Selection.MoveUp unit:=wdParagraph

Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend

Selection.Delete

end sub

以上是轉載的vba用于word光標設置技巧，便于查詢