Word VBA中赋值一个Range对象为何导致另一对象异常变化？

这个问题的核心在于Word中Range对象的动态特性——它和你可能熟悉的Excel Range完全不同，Word Range不是对固定内容的静态引用，而是绑定到文档中的一段连续位置，会随着文档内容的修改自动调整自己的位置和范围。

拆解你的代码场景 #

假设你的文档初始内容是"12"：

1. Set pRange1 = ActiveDocument.Range.Characters(1)：pRange1指向文档的第1个字符（位置范围是从1到2，内容为"1"）。
2. Set pRange2 = ActiveDocument.Range.Characters(2)：pRange2指向文档的第2个字符（位置范围是从2到3，内容为"2"）。
3. pRange1.Text = "3"：你替换了pRange1范围内的内容，文档变成"32"。

你提到pRange2变成了"33"，这大概率是测试时的小误解（正常情况下pRange2应该仍然指向第2个字符"2"），但你感受到的“一个Range修改影响另一个”的现象，本质是Range的动态绑定特性：

• 当文档内容发生变化（比如插入/删除字符改变长度），所有已定义的Range对象都会自动调整它们的Start和End属性，以保持在文档中的相对位置。
• 比如如果你把pRange1.Text改成"33"（两个字符），原文档长度从2变成3，pRange2的位置会从2-3自动变成3-4，指向的内容就变成了原来的第2个字符"2"，而不是新的第2个字符"3"。

如何避免这种“意外关联”？ #

如果你想保留某个Range的内容，而不随文档变化，不要直接保留Range对象，而是将内容存入字符串变量：

Sub testFixed()
    Dim pRange1 As Word.Range
    Dim str2 As String ' 用字符串保存静态内容
    Set pRange1 = ActiveDocument.Range.Characters(1)
    str2 = ActiveDocument.Range.Characters(2).Text ' 保存初始内容
    pRange1.Text = "3"
    Debug.Print str2 ' 输出仍然是"2"，不受文档修改影响
End Sub

如果确实需要保留一个不随文档变化的Range位置（比如标记某个固定位置），可以使用书签（Bookmark）来固定位置，书签会在文档修改时自动维护其标记的范围。

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