hi
im working with microsoft word (i have 2003 and 2013) want to reverse order of text and/or string of words
in other words i need two diferent macros

1. to reverse words/letters like "vba express com" to "abv sserpxe moc"

2. to reverse paragraph/selected words like "vba express com" to "com express vba"

i found a macro for microsoft excel and i need help re-writing it for word

this is what i have
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 Sub ReverseText()
'Updateby20131128
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
xValue = Rng.Value
xLen = VBA.Len(xValue)
xOut = ""
For i = 1 To xLen
getChar = VBA.Right(xValue, 1)
xValue = VBA.Left(xValue, xLen - i)
xOut = xOut & getChar
Next
Rng.Value = xOut
Next
End Sub

thank you for your help