在WORD中用VBA實現光標移動與內容選擇

在WORD中用VBA實現光標移動與內容選擇  分類： VB 2009-08-01 16:42 216人閱讀 評論(0) 收藏 舉報  在WORD中如何用VBA宏語言選定一行、一段，刪除一行、一段，移動光標至行首、行尾、段首、段尾等。請看如下內容。 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