VBAWORD行操作.doc

VBA WORD行操作
VBA WORD行操作- [VBA]
发布日期:2009-08-18 浏览量:629 【字体:大 中 小】 在WORD中用VBA宏语言选定一行、一段，删除一行、一段，移动光标至行首、行尾、段首、段尾等。
SVBA WORD行操作
VBA WORD行操作- [VBA]
发布日期:2009-08-18 浏览量:629 【字体:大 中 小】 在WORD中用VBA宏语言选定一行、一段，删除一行、一段，移动光标至行首、行尾、段首、段尾等。
Sub MoveToCurrentLineStart()
'移动光标至当前行首
unit:=wdLine End Sub
Sub MoveToCurrentLineEnd()
'移动光标至当前行尾
unit:=wdLine End Sub
Sub SelectToCurrentLineStart()
'选择从光标至当前行首的内容
unit:=wdLine, Extend:=wdExtend
End Sub
Sub SelectToCurrentLineEnd()
'选择从光标至当前行尾的内容
unit:=wdLine, Extend:=wdExtend
End Sub
Sub SelectCurrentLine()
'选择当前行
unit:=wdLine
unit:=wdLine, Extend:=wdExtend
End Sub
Sub MoveToDocStart()
'移动光标至文档开始
unit:=wdStory End Sub
Sub MoveToDocEnd()
'移动光标至文档结尾
unit:=wdStory End Sub
Sub SelectToDocStart()
'选择从光标至文档开始的内容
unit:=wdStory, Extend:=wdExtend
End Sub
Sub SelectToDocEnd()
'选择从光标至文档结尾的内容
unit:=wdStory, Extend:=wdExtend
End Sub
Sub SelectDocAll()
'选择文档全部内容(从WholeStory可猜出Story应是当前文档的意思)

End Sub
Sub MoveToCurrentParagraphStart()
'移动光标至当前段落的开始
unit:=wdParagraph End Sub
Sub MoveToCurrentParagraphEnd()
'移动光标至当前段落的结尾
unit:=wdParagraph End Sub