Hebrew inverted characters macro

  • Thread starter Thread starter morris
  • Start date Start date
M

morris

Hi.

Im working rapidly with hebrew reports that was converted from dos
Allmost everything is going well after the convertion except that th
words, that mainly in hebrew(right to left) are shown in inverte
character order.
exaple:
"Words" are shown as "sdroW".
i cannot find any macro that runs on the worksheet and divert i
back.... can someone help me here PLS ????

Tnx a Lot,
Morris
 
Morris

I picked this up from somewhere, I not where but I'd guess it came from the
NG at some point:

Function ReverseWord(sContents As Variant) As Variant
If sContents = "" Then
ReverseWord = ""
Exit Function
End If
If sContents = True Or sContents = False Then
ReverseWord = Not sContents
Exit Function
End If
Dim i As Integer
For i = Len(sContents) To 1 Step -1
ReverseWord = ReverseWord & Mid(sContents, i, 1)
Next 'i
If IsNumeric(sContents) Then ReverseWord = ReverseWord * 1
End Function

So, to reverse cell A1, you would use: =ReverseWord(A1)

You could set up a new sheet and reverse the words in the cells on the
original sheet (as one option)

For example, in cell A2 on Sheet 2, you could have: =reverseword(Sheet1!A2)

Regards

Trevor


morris said:
Hi.

Im working rapidly with hebrew reports that was converted from dos.
Allmost everything is going well after the convertion except that the
words, that mainly in hebrew(right to left) are shown in inverted
character order.
exaple:
"Words" are shown as "sdroW".
i cannot find any macro that runs on the worksheet and divert it
back.... can someone help me here PLS ????

Tnx a Lot,
Morris.


------------------------------------------------



~~Now Available: Financial Statements.xls, a step by step guide to
Click to expand...
creating financial statements
 
Back
Top