六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

Word开发之VBA操作行、段落、光标位置的代码

Admin | 2010-3-6 21:45:19 | ReadNums | 10582 | 标签 香港最快开奖结果2018 | 打印本页
     

   在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


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日