将Range对象赋给变量

　　有多种方法将现有的Range对象赋给变量。本主题对两种不同的方法进行了阐述。在下列示例中，将 Range对象赋给变量Range1 和Range2。例如，下列指令将活动文档中的第一个和第二个单词赋给变量Range1 和Range2。
　　Set Range1 = ActiveDocument.Words(1)
　　Set Range2 = ActiveDocument.Words(2)
　　将一个 Range对象变量设置为等于另一个 Range对象变量
　　下列指令将名为Range2 的区域变量设为与Range1 代表的位置相同。
　　Set Range2 = Range1
　　现在两个变量代表同一区域。修改Range2 的起点、终点或其中的文本将影响Range1，反之亦然。
　　请注意，以下指令等价于Range2.Text = Range1.Text。该指令指定Range2的默认属性（Text属性）为Range1的默认属性。但该指令并不修改其实际引用的对象。
　　Range2 = Range1
　　Range2 和Range1 区域具有相同的内容，但它们可能对应文档中的不同位置，甚至对应不同的文档。
　　使用 Duplicate属性
　　下列指令创建一个 Range对象的新副本Range2，它与Range1 有相同的起点、终点和文本。
　　Set Range2 = Range1.Duplicate
　　对Range1起点或终点的修改不影响Range2，反之亦然。但是，由于这两个区域指向文档中的同一位置，对一个区域中文本的修改将影响另一个区域中的文本。