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

2021-05-01 14:54:11 字數 2479 閱讀 1093

在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

在 XSLT 中用遞迴實現迴圈

擴充套件 xslt 能力的技術 xslt 是一種函式式程式語言,類似於 haskell 或 scheme,但是與 c 和 fortran 不同。因此這種語言沒有迴圈,也沒有可變的變數。相反,必須用遞迴和引數來代替這些結構。這篇技巧示範了如何使用命名模板和xsl call template xsl w...

在VBA中實現通過Outlook傳送郵件

1.新增引用microsoft outlook 11.0 object library。這裡用的是microsoft outlook 2003 2.定義傳送郵件過程。public sub sendemail receiver as string,subjecttext as string,bodyt...

奧展專案筆記10 js實現上下鍵控制游標移動

html 企業名稱 v model form.company onkeydown movecursor this,event v model form.arrivetime onkeydown movecursor this,event 爐號 heat no v model form.heatno ...