Save the cursor position in a document and return there later on

Question

I have a macro that scans my document for Heading 1 styles, and consequently the cursor is moved to after the last match.

I'm trying to capture the location of the cursor before this scan occurs, and then return to that position after it has finished. How do I do this?

I found this answer on SO, but it's not working (No error, it just doesn't do anything.)

Application.ScreenUpdating = False ' Turn screen updates off so the user will not know that the cursor has moved

Dim currentPosition As Long
currentPosition = Selection.Range.Start

{... do stuff here ...}

Selection.Range.Start = currentPosition

Application.ScreenUpdating = True

score 22 · Accepted Answer · answered Oct 30 '14 at 10:27

22

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

answered Oct 30 '14 at 10:27

Jean-François Corbett

37,420
30
139
188

3

Thank you, that works. I do have one very petty request, if you happen to know the answer though - Even though the selection remains as it was before, the screen moves so that the selection is at the top of the screen. Is there anyway to also save the screen position? Thanks. – David Gard Oct 30 '14 at 10:35
Good question... I suggest you post a new question. I don't know off the top of my head; you will get more attention with a new question. – Jean-François Corbett Oct 30 '14 at 10:45
@DavidGard Scroll position: https://stackoverflow.com/a/30765988/600135 – kol Mar 07 '18 at 16:00
Does it mean that we can't get selection of an **inactive** document? – AKd Jan 08 '23 at 17:25

score 2 · Answer 2 · answered Oct 30 '14 at 10:51

2

You could also use bookmarks:

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

answered Oct 30 '14 at 10:51

iDevlop

24,841
11
90
149

Thank you for the suggestion, but that does not seem to be working. – David Gard Oct 30 '14 at 12:16

Save the cursor position in a document and return there later on

2 Answers2