将光标移动到最后插入的内容答案

【问题标题】：Moving cursor to the end inserted content将光标移动到最后插入的内容
【发布时间】：2022-10-11 05:01:22
【问题描述】：

在Range 对象（不是Selection 对象）上执行InsertFile() 后，如何将光标移动到插入内容的末尾？

细节

我收到来自调用者的Range 对象。目前Range.Start 和Range.End 设置为相同的值（即 Range 对象不包含任何文本，只是充当插入点）。我需要在该光标位置执行InsertFile()，然后将光标移动到插入内容的末尾。内容是一个 HTML 文件。看起来调用InsertFile() 不会影响Range.Start 或Range.End。

由于这是一个 HTML 文件，我也不能使用插入内容的长度。

【问题讨论】：

在插入文件之前，在您希望光标移动到的位置添加一个临时书签。插入文件后移动到书签位置并删除书签。

标签： vba ms-word

【解决方案1】：

例如，您可以使用如下代码：

Dim Rng As Range
Set Rng = Selection.Range
With Rng
  .Collapse wdCollapseEnd
  .InsertFile FileName:="File to insert", Link:=True
  .End = .End + 1
  .End = .Fields(1).Result.End
  .Fields.Unlink
  .Collapse wdCollapseEnd
End With

【讨论】：