范围变量与段落变量的不同行为与选择

Question

我以为下面两个程序是一样的，为什么不呢？

此代码有效：

For i = 1 To n
    Set r = Selection.Range.Paragraphs(i).Range
    r.Collapse
    r.Text = " "
    r.ContentControls.Add (wdContentControlCheckBox)
Next i

这段代码没有：

For i = 1 To n
    Set r = Selection.Range.Paragraphs(i).Range
    Set p = r.Paragraphs(1)
    p.Range.Text = " " + p.Range.Text
    r.Collapse
    r.ContentControls.Add (wdContentControlCheckBox)
Next i

据我所知，唯一的区别是不是在空格后面连接旧文本然后将光标放在段落的开头，而是将光标放在段落的开头并输入一个空格。

Tl;dr：我不明白为什么上面的两个程序不等价

我缺乏谷歌搜索原因的一般知识。我的尝试提取了通用指南。我尝试单步调试调试器以掌握控制流，但这也无济于事。

Answer 1

试试：

Dim sel As Range


Set sel = Selection.Range

For i = 1 To n
    Set r = Selection.Range.Paragraphs(i).Range
    Set p = r.Paragraphs(1)
    p.Range.Text = " " + p.Range.Text
    r.Collapse
    r.ContentControls.Add (wdContentControlCheckBox)
    sel.Select
Next i

问题是：

p.Range.Text = " " + p.Range.Text

正在更改选择....

**** 编辑以包含更好的解释****

当您使用 r.Collapse - 您将范围 r 设置为具有相等的开始和结束位置。

例如，如果您有这样的段落：

“这是我的第一段”

当您设置 r 时，它的开头为 0，结尾为 27。在您运行 r.Collapse 后，开头和结尾都变为 0（假设 para 位于文档的开头）。

然后您在位置 0 处插入一个空格（在您的第一种方法下），然后添加您的内容控件。 Word 可以在选择选择时处理此问题。

在第二种方法中，您直接更改段落的文本。您稍后将折叠 r，但这不会改变 p。 P 将在 0,27 范围内开始。 Word 无法通过添加空格而不选择它来将范围 (0,27) 更改为 (0,28)。

简而言之，不同之处在于折叠导致 Word 能够在当时（对 Word）空范围之前插入空格。