Word中使用VBA创建无联动独立Range对象副本的方法

问题根源 #

VBA 对对象类型变量执行 Set 赋值时，本质是传递对象的引用指针，而非拷贝对象的实体状态。Word 的 Range 属于COM对象，所有通过 Set 绑定到同一底层实例的变量，对任意一个执行范围调整操作（如 Collapse 折叠、修改起止位置）都会同步作用于所有绑定该实例的变量，因此会出现两个范围联动变化的问题。

独立副本的实现方法 #

方法1：使用Range原生Duplicate属性 #

这是Word官方推荐的最稳妥实现方式，Duplicate 属性会生成与原Range状态完全一致、但实体独立的副本，二者后续操作无任何状态联动。
修正后的测试代码：

Dim Range1 As Range, Range2 As Range
Set Range1 = Selection.Range ' 绑定初始选中范围
' 通过Duplicate生成独立副本
Set Range2 = Range1.Duplicate
Range2.Collapse ' 仅修改Range2自身状态，Range1不受任何影响
Range1.Select ' 可正常恢复并选中原Range1的完整范围

该方法的兼容性优势：会自动继承原Range的关联父容器属性，支持复制页眉、页脚、文本框等嵌套场景下的Range对象，不会出现范围位置偏移。

方法2：手动传入起止位置参数生成范围 #

如果确认原Range处于文档主正文区，可以直接通过Start、End属性值手动构造独立范围：

Dim Range1 As Range, Range2 As Range
Set Range1 = Selection.Range
' 直接基于原Range的起止坐标构造新的独立范围
Set Range2 = ActiveDocument.Range(Start:=Range1.Start, End:=Range1.End)

使用该方法需要注意两点局限：

• 仅适用于文档主正文区的Range对象，若原Range位于文本框、页眉页脚、嵌套表格等非主正文场景，会因父容器不匹配出现定位偏差
• 需要手动确认原Range所属的文档对象，多文档并行操作时容易出现跨文档定位错误

内容的提问来源于stack exchange，提问作者Jan Hemel