SetRange 方法

       

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

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

expression.SetRange(Start, End)

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

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

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

说明

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

示例

本示例选定文档的前 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