View Single Post
  #2   Report Post  
Greg Maxey
 
Posts: n/a
Default

I suspect that there is a far superior method, but I cobbled the following
together that seems to work. Select the three lines and run this macro:

Sub ReverseLineOrder()
Dim myRng As Range
Dim tmpString1 As String
Dim tmpString2 As String
Dim tmpString3 As String

Set myRng = Selection.Range
tmpString1 = myRng.Paragraphs(3).Range
tmpString2 = myRng.Paragraphs(2).Range
tmpString3 = myRng.Paragraphs(1).Range
myRng.Delete
myRng.Text = tmpString1 & tmpString2 & tmpString3
End Sub

--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.

sdlfkj wrote:
I have lines of numbers that I need to reverse.

So instead of
3rd line
2nd line
1st line

I need it to read
1st line
2nd line
3rd line

I just want to highlight the 3 lines and click something to reverse
the order instead of cutting and pasting hundreds of times. Any
suggestions?