在word中,如何使用VBA语言选择一行、一个段落;甚至是删除行或段落,以及移动光标的位置(如移动到行首、行尾、段首及段落的最后等等)
下面是常规性的与此类操作相关的代码,希望对您有所帮助。
'移动光标至当前行首 Sub MoveToCurrentLineStart() Selection.HomeKey unit:=wdLine End SubSub MoveToCurrentLineEnd()
'移动光标至当前行尾 Selection.EndKey unit:=wdLine End SubSub SelectToCurrentLineStart()
'选择从光标至当前行首的内容 Selection.HomeKey unit:=wdLine, Extend:=wdExtend End SubSub SelectToCurrentLineEnd()
'选择从光标至当前行尾的内容 Selection.EndKey unit:=wdLine, Extend:=wdExtend End SubSub SelectCurrentLine()
'选择当前行 Selection.HomeKey unit:=wdLine Selection.EndKey unit:=wdLine, Extend:=wdExtend End SubSub MoveToDocStart()
'移动光标至文档开始 Selection.HomeKey unit:=wdStory End SubSub MoveToDocEnd()
'移动光标至文档结尾 Selection.EndKey unit:=wdStory End SubSub SelectToDocStart()
'选择从光标至文档开始的内容 Selection.HomeKey unit:=wdStory, Extend:=wdExtend End SubSub SelectToDocEnd()
'选择从光标至文档结尾的内容 Selection.EndKey unit:=wdStory, Extend:=wdExtend End SubSub SelectDocAll()
'选择文档全部内容 Selection.WholeStory End SubSub MoveToCurrentParagraphStart()
'移动光标至当前段落的开始 Selection.MoveUp unit:=wdParagraph End SubSub MoveToCurrentParagraphEnd()
'移动光标至当前段落的结尾 Selection.MoveDown unit:=wdParagraph End SubSub SelectToCurrentParagraphStart()
'选择从光标至当前段落开始的内容 Selection.MoveUp unit:=wdParagraph, Extend:=wdExtend End SubSub SelectToCurrentParagraphEnd()
'选择从光标至当前段落结尾的内容 Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend End SubSub SelectCurrentParagraph()
'选择光标所在段落的内容 Selection.MoveUp unit:=wdParagraph Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend End SubSub DisplaySelectionStartAndEnd()
'显示选择区的开始与结束的位置,注意:文档第1个字符的位置是0 MsgBox ("第" & Selection.Start & "个字符至第" & Selection.End & "个字符") End SubSub DeleteCurrentLine()
'删除当前行 Selection.HomeKey unit:=wdLine Selection.EndKey unit:=wdLine, Extend:=wdExtend Selection.Delete End SubSub DeleteCurrentParagraph()
'删除当前段落 Selection.MoveUp unit:=wdParagraph Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend Selection.Delete End Sub |