If .extendmode is True when I enter a VBA Sub, it is always set to
False sometime between the final End Sub and control being returned to
Word.  Here is an example:

Public Sub MoveForward4()
' Move point forward 4 characters
       Selection.MoveRight Unit:=wdCharacter, Count:=4,
Extend:=wdExtend
End Sub

If .extendmode is True when this Sub is called (it is assigned to
shortcut key), then .extendmode is set to False after the End Sub.

Any suggestions on how I can avoid .extendmode being set to False;
since I don't want the Sub to affect .extendmode.

I also tried implementing this with the .moveend method; but, it too
suffers the same side effect.  Lastly, when .extendmode is True, the
cursor keys can be pressed multiple times without .extendmode becoming
set to False; which is the behaviour I'm trying to emulate.

thanks,
Christopher