A macro that moves the current paragraph up or down?

[New Daddy]

Maybe it's my habit, but I happen to fall into a situation where I need to push a paragraph up or down.

There are Word commands OutlineMoveUp and OutlineMoveDown, which work as their names suggest in the Outline view. But in a non-Outline view, these commands send the current paragraph to weird places instead of moving it single paragraph up or down.



Can someone show me what a macro that moves the current paragraph up or down look like? Than I will map them to Alt+Shift+up/down arrow keys.