在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 [Web开发]上篇—水晶报表导出为word/excel文件的代码 [Web开发]下篇—水晶报表导出为word/excel文件的代码 [网页制作]js将表格导出为word/excel文件的代码 [办公软件]excel、word、PowerPoint工具栏上面的加粗大写字母… [办公软件]Word2010、Excel2010、PowerPoint2010新功能介绍 [办公软件]word各种视图方式的介绍 [办公软件]word安全模式错误的解决办法 [办公软件]在word表格中输入文字时如何保证单元格的大小不会… [办公软件]如何让WORD为我们自动编写摘要 [办公软件]总结性介绍word临时文件tmp的创建、删除
|