I am trying to create two keyboard shortcuts which allow me to move selected words quickly to the right and left within a text. The selected text should move one word to the left or the right. Here is what I want to do


1) Select words e.g. “this is” in the sentence “this is a tree”

2) Press e.g. ctrl + alt + arrow to the right

3) The sentence reads now as “a this is tree”

4) Press again ctrl alt + arrow to the right

5) The sentence reads now as “a tree this is”


The idea is to replace the cut / paste steps and make the process a bit more efficient and smoother. I have no knowledge in VB, but managed to get close to by using Word’s macro-function.


Sub moveRight() 'moveRight Macro Selection.Cut Selection.moveRight Unit:=wdWord, Count:=1 Selection.PasteAndFormat (wdFormatOriginalFormatting) End Sub

The problem with this function is that the selected words are no longer selected once they are pasted. Hence, triggering the function again (=moving the text more than one word) results in an error (I would have to select the relevant text again). Is there any way that the selected words remain selected after they are pasted so that I can trigger the function repeatedly?
Many thanks.