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

vba ms-word word-2010
David Gard picture David Gard · Oct 30, 2014 · Viewed 18.1k times · Source

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

Answer

Jean-François Corbett picture Jean-François Corbett · Oct 30, 2014 
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

Related questions

Create Range from current cursor position Word 2010 VBA

I have a .docm document with a user form. On the user form I have a button that needs to insert something (some text, for starter) at the last known cursor position in the document. For this, I want to …

Read More
How do you correctly set document properties using VBA?

The problem I'm having some trouble setting document properties using VBA in Word 2010. I have a document containing several Heading 1 sections and I use a macro to extract a selected section (along with it's contents) and paste it to a …

Read More
Remove paragraph mark from string

I have a macro that finds all of the 'Heading 1' styles within my document and lists them in a ComboBox on a UserForm. My problem is that the Find routine I am using is also selecting the paragraph mark (¶) …

Read More