Word VBA教程:SetRange方法

设置某一区域或选定区域的起始字符和结束字符的位置。

注意   字符位置的值从文档该部分开头计起,起始值为 0。将计算所有的字符,包括非打印字符和未显示的隐藏字符。

expression.SetRange(Start, End)

expression   必需。该表达式返回一个 Range 或 Selection对象。

Start   Long 类型,必需。指区域或所选内容的起始字符位置。

End   Long 类型,必需。指区域或所选内容的结束字符位置。

说明

SetRange方法用以重新定义原有的 Selection 或 Range对象的起始字符和结束字符位置。本方法不同于 Range方法,Range方法创建区域,给出区域的起始和结尾位置。

VBA示例

本示例选定文档的前 10 个字符。


Selection.SetRange Start:=0, End:=10

本示例使用 SetRange 重新定义myRange 来表示文档的前三段。


Set myRange = ActiveDocument.Paragraphs(1).Range
myRange.SetRange Start:=myRange.Start, _
    End:=ActiveDocument.Paragraphs(3).Range.End

本示例用 SetRange方法来重新定义myRange,使其代表从文档开头起至当前所选内容结尾位置的区域。


Set myRange = ActiveDocument.Range(Start:=0, End:=0)
myRange.InsertAfter "Hello "
myRange.SetRange Start:=myRange.Start, End:=Selection.End

本示例将选定区域扩展至文档结尾。


Selection.SetRange Start:=Selection.Start, _
    End:=ActiveDocument.Content.End

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号