下列指令（语句）将名为 Range2 的区域变量设为与 Range1 代表的位置相同。
Set Range2 = Range1 '译为：设置Range2对象与 Range1 代表的位置相同
现在两个变量代表同一区域。修改 Range2 的起点、终点或其中的文本将影响 Range1，反之亦然。
请注意，以下指令等价于 Range2.Text = Range1.Text。该指令指定 Range2 的默认属性（Text 属性）为 Range1 的默认属性。但该指令并不修改其实际引用的对象。
Range2 = Range1
Range2 和 Range1 区域具有相同的内容，但它们可能对应文档中的不同位置，甚至对应不同的文档。
'上面这句有点难懂，用程序来说明吧（以后大多是这样，因为我们是学习VBA，只有通过程序来说明内容）
Dim range1 As Range, range2 As Range
Set range1 = ActiveDocument.Range(0, 1) '文档的第一个区域（字）
Set range2 = ActiveDocument.Range(1, 2) '文档的第二个区域（字）
MsgBox range1 '输出第一个字
MsgBox range2 '输出第二个字
range2 = range1 '把第一个（字）的区域的字赋值给第二个区域
MsgBox range2 '输出第二个区域（字）
'为什么我把字后面加括号，因为我们设置的是区域，就是范围小了点的区域，
'就一个字的区域，所以，也是字，但区域更准确。
当然，与第一例子类似，要新建一个文档，输入一定（只要二个）字来做测试，按F8一步一步来看，也行。