How to Reverse the Order of Specific Consecutive Words

[RandomPattern]

Hi I type many documents in English with that includes sporadic Hebrew words
throughout. Because I cannot touch type Hebrew, I transliterate them with
English characters, and I keep an excel spreadsheet with all my
transliterations and their corresponding Hebrew words in the other.

It was relatively simple to write some VBA to find the transliterations in
my document, and replace them with the corresponding Hebrew words from Excel.
The issue is phrases. Since Hebrew is written from right to left, my code
causes all the Hebrew phrases to be written in reverse. The only way I could
fix this, is to include the whole phrase in my table with the corresponding
Hebrew phrase, which is very annoying.

There has to be away to either, have my code find any consecutive
transliterations and reverse their order before converting them to Hebrew, or
to first convert them to Hebrew and then reverse the order of any consecutive
Hebrew words.

I don't know how to code that.

Any suggestions?

 

[Larry]

Wouldn't something like this work? ==> http://word.tips.net/Pages/T000767_Reversing_a_String.html

Since you are already finding the transliterations easily, you must be
using something that identifies their boundaries. You can use that
same thing to know where to reverse the text.

 

[RandomPattern]

No Larry, I don't need to reverse the letters in the word, I need to reverse
the words in a phrase. For example, a phrase like "man up what's" would need
to be switched to "what's up man"

 

[Greg Maxey]

Something like this;
Sub ReverseWords()
Dim oRng As Word.Range
Dim wordArray() As String
Dim tempStr As String
Dim i As Long
Set oRng = ActiveDocument.Range
oRng.End = oRng.End - 1
wordArray = Split(oRng.Text)
For i = UBound(wordArray) To 0 Step -1
tempStr = tempStr + Trim(wordArray(i)) & " "
Next i
ActiveDocument.Range.Text = tempStr
End Sub