Dzwebs.Net

撰写电脑技术杂文十余年

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

Admin | 2010-3-6 21:45:19 | 被阅次数 | 18183

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

   在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


该杂文来自: Word杂文

上一篇:给Word文档快速另起一页(翻页)的最快最简单方法

下一篇:word无法使用鼠标左键拖动选择文字

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计