在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 ...