admin管理员组

文章数量:1538192

2024年5月13日发(作者：)

在WORD中用VBA实现光标移动与内容选择的方法

在WORD中如何用VBA宏语言选定一行、一段，删除一行、一段，移动光标至行

首、行尾、段首、段尾等。请看以下内容。Sub MoveToCurrentLineStart()

'移动光标至当前行首

y unit:=wdLine End SubSub MoveToCurrentLineEnd()

'移动光标至当前行尾

unit:=wdLine

End SubSub SelectToCurrentLineStart()

'选择从光标至当前行首的内容

y unit:=wdLine, Extend:=wdExtend

End SubSub SelectToCurrentLineEnd()

'选择从光标至当前行尾的内容

unit:=wdLine, Extend:=wdExtend

End SubSub SelectCurrentLine()

'选择当前行

y unit:=wdLine

unit:=wdLine, Extend:=wdExtend

End SubSub MoveToDocStart()

'移动光标至文档开始

y unit:=wdStory End SubSub MoveToDocEnd()

'移动光标至文档结尾

unit:=wdStory

End SubSub SelectToDocStart()

'选择从光标至文档开始的内容

y unit:=wdStory, Extend:=wdExtend

End SubSub SelectToDocEnd()

'选择从光标至文档结尾的内容

unit:=wdStory, Extend:=wdExtend

End SubSub SelectDocAll()

'选择文档全部内容(从WholeStory可猜出Story应是当前文档的意思)

tory

End SubSub MoveToCurrentParagraphStart()

'移动光标至当前段落的开始

unit:=wdParagraph End

MoveToCurrentParagraphEnd()

'移动光标至当前段落的结尾

wn unit:=wdParagraph End SubSub

SubSub

SelectToCurrentParagraphStart()

'选择从光标至当前段落开始的内容

unit:=wdParagraph, Extend:=wdExtend

End SubSub SelectToCurrentParagraphEnd()

'选择从光标至当前段落结尾的内容

wn unit:=wdParagraph, Extend:=wdExtend

End SubSub SelectCurrentParagraph()

'选择光标所在段落的内容

unit:=wdParagraph

wn unit:=wdParagraph, Extend:=wdExtend

End SubSub DisplaySelectionStartAndEnd()

'显示选择区的开始与结束的位置，注意:文档第1个字符的位置是0

MsgBox ("第" & & "个字符至第" & & "个字符

")End SubSub DeleteCurrentLine()

'删除当前行

y unit:=wdLine

unit:=wdLine, Extend:=wdExtend

End SubSub DeleteCurrentParagraph()

'删除当前段落

unit:=wdParagraph

wn unit:=wdParagraph, Extend:=wdExtend

End Sub

本文标签： 光标移动内容选择文档

版权声明：本文标题：在WORD中用VBA实现光标移动与内容选择的方法 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/xitong/1715557130a458157.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。