Option Explicit

Const varname As String = "CurrentCursorPosition"

Dim docvar As variable
Dim position As String

Private Sub SaveCurrentCursorPosition()
On Error GoTo ErrTrap

Application.ScreenUpdating = False

position = Selection.Range.Start

For Each docvar In ActiveDocument.Variables
    If docvar.Name = varname Then
        Exit For
    End If
Next

If docvar Is Nothing Then
    ActiveDocument.Variables.Add varname, position
Else
    docvar.value = position
End If

Application.ScreenUpdating = True

Exit Sub
ErrTrap:
    MsgBox "An error occured in GetCursorPosition: " & Err.Number & " " & Err.Description
    Application.ScreenUpdating = True
End Sub

Private Sub SetCursorPosition()
On Error GoTo ErrTrap

Application.ScreenUpdating = False

For Each docvar In ActiveDocument.Variables
    If docvar.Name = varname Then
        Exit For
    End If
Next

If docvar Is Nothing Then
    position = 0
Else
    position = docvar.value
End If

ActiveDocument.Range(position, position).Select

Application.ScreenUpdating = True

Exit Sub
ErrTrap:
    MsgBox "An error occured in SetCursorPosition: " & Err.Number & " " & Err.Description
    Application.ScreenUpdating = True
End Sub

MsgBox "An error occured in GetCursorPosition: " & Err.Number & " " & Err.Description

MsgBox "An error occured in SaveCurrentCursorPosition: " & Err.Number & " " & Err.Description