SetRange 方法

       

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

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

expression.SetRange(Start, End)

expression   必需。该表达式返回一个 RangeSelection 对象。

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

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

说明

SetRange 方法用以重新定义原有的 SelectionRange 对象的起始字符和结束字符位置。本方法不同于 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