Vba 将光标位置保存在文档中，稍后返回

我有一个宏，可以扫描文档中的

标题1

样式，因此光标会在最后一次匹配后移动到

我试图在扫描之前捕获光标的位置，然后在扫描完成后返回到该位置。我该怎么做

我发现是这样的，但它不起作用（没有错误，它只是不起任何作用。）

---

您也可以使用书签：

Sub test()
    ThisDocument.Bookmarks.Add ("xx")
    {... do stuff here ...}
    ThisDocument.GoTo what:=wdGoToBookmark, Name:="xx"
End Sub

---

谢谢，这很有效。我确实有一个非常小的要求，如果你碰巧知道答案的话-即使选择仍然像以前一样，屏幕也会移动，使选择位于屏幕顶部。是否还需要保存屏幕位置？谢谢。问得好。。。我建议你发一个新问题。我一点也不知道；“你会因为一个新问题而得到更多的关注。”大卫加德滚动位置：谢谢你的建议，但这似乎不起作用。

Dim currentPosition As Range
Set currentPosition = Selection.Range 'pick up current cursor position

' do stuff — cursor gets moved around

currentPosition.Select 'return cursor to original position

Sub test()
    ThisDocument.Bookmarks.Add ("xx")
    {... do stuff here ...}
    ThisDocument.GoTo what:=wdGoToBookmark, Name:="xx"
End Sub