Reverse text for each paragraph

Hi,

well i'm looking for a way to reverse text strings in big word file but for each paragraph not for all text at one same time

i found this macro below but it reverses all text in one time

for ex:

this text

Quote:

---

A truck is on a motorway in China the truck has millions of bees on it.

The bees fly everywhere. The police close the motorway.

The beehives are all over the motorway.

---

turns into

Quote:

---

motorway. the over all are beehives motorway.

The the close police The everywhere. fly bees it.

The on bees of millions has truck the China in motorway a on is truck A

---

but i want it to be like:

Quote:

---

it. on bees of millions has truck the China in motorway a on is truck A

motorway. the close police The everywhere. fly bees The

motorway. the over all are beehives The

---

like to be read from right to left instead of reading left to right

Code:

---


Sub ReverseWords()
    Dim strIn As Variant, strOut As String, lngIndex As Long
    'Get the selected text, split by blanks into words
    strIn = Split(Selection)
    'Construct the output string
    For lngIndex = 0 To UBound(strIn)
        strOut = strIn(lngIndex) & " " & strOut
    Next
    'Replace the selected text
    Selection = Trim(strOut)
lbl_Exit:
    Exit Sub
End Sub
 
Sub TransposeText()
    Dim oRng As word.Range
    Dim lngCase As Long
    Dim strText As String
    Dim lngIndex As Long
    Dim bSpace As Boolean
    With Selection
        If .Words.Count = 1 Then
            Set oRng = .Range
            lngCase = oRng.Words(1).Case
            strText = StrReverse(oRng.text)
            oRng.text = strText
            oRng.Case = lngCase
        Else
            Set oRng = .Range
            For lngIndex = 1 To oRng.Words.Count
                If oRng.Words(lngIndex).Characters.Last = Chr(32) Then bSpace = True
                lngCase = oRng.Words(lngIndex).Case
                strText = StrReverse(Trim(oRng.Words(lngIndex).text))
                If bSpace Then strText = strText & " "
                oRng.Words(lngIndex).text = strText
                bSpace = False
            Next
        End If
    End With
lbl_Exit:
    Exit Sub
End Sub

---

and Thanks in advance

Code:

---

Sub ReverseTextByParagraph()
Dim oPar As Paragraph
Dim oRng As Range
  For Each oPar In ActiveDocument.Range.Paragraphs
    Set oRng = oPar.Range
    oRng.End = oRng.End - 1
    oRng.Text = fcnReverseString(oRng.Text)
  Next
 End Sub
 
Function fcnReverseString(strIn As String) As String
Dim arrIn() As String, strOut As String, lngIndex As Long
  'Split input by blanks into words
  arrIn = Split(strIn)
  'Construct the output string
  For lngIndex = 0 To UBound(arrIn)
    strOut = arrIn(lngIndex) & " " & strOut
  Next
  fcnReverseString = Trim(strOut)
End Function

---

Hi Greg,

Thanks bro for your efforts, works well :) :)

Best Regards