How transpose paragraph with the previous one.

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

dbuchanan - 08 Aug 2005 05:38 GMT

Here is my attempt at transposing the current paragraph with the one
above.

What my code does in stead is replace the paragraph above with the
current paragraph.

How should I do this?

Sub MoveUp()
Selection.Paragraphs(1).Range.Select
Selection.Cut
Selection.Previous(Unit:=wdParagraph, Count:=1).Select
Selection.Paste
End Sub

Thank you,

word vba newbie

Reply to this Message

Jezebel - 08 Aug 2005 06:06 GMT

Selection.Paragraphs(1).Range.Relocate Direction:=wdRelocateUp

The Help files say you have to be in Outline view to use Relocate, but at
least in W2003 it works in Print and Normal view also.

> Here is my attempt at transposing the current paragraph with the one
> above.
[quoted text clipped - 14 lines]
>
> word vba newbie

Reply to this Message

dbuchanan - 08 Aug 2005 18:45 GMT

Jezebel,

Thank you so much. It works for me, I am using Word 2003.

I did my research in help but it is quie fruitless trying trying to
find something in help if you don't already know the language. I would
have never imagined "relocate". Help doesn't give many useful clues.

Reply to this Message