Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

text converted spontaneously into unintelligible symbols

57 views
Skip to first unread message

Gadi

unread,
Jul 27, 2009, 7:26:01 PM7/27/09
to
Hi,
some of my word2007 document was converted from hebrew into unintelligible
text, which I can't read obviously.
it looks like this:
ôúåâï ùðéåðé òí îàôééðéí ùì ôúåâï øàùåðé- ôéøåè áäîùê

what can I do? can I convert it back somehow?

thanks in advance,
Gadi

Character

unread,
Jul 27, 2009, 8:12:51 PM7/27/09
to

Gadi wrote:

> Hi,
> some of my word2007 document was converted from hebrew into unintelligible
> text, which I can't read obviously.
> it looks like this:

> ����� ������ �� �������� �� ����� ������- ����� �����


>
> what can I do? can I convert it back somehow?
>
> thanks in advance,
> Gadi

Make sure that the font being used is exactly the same one you used to
create those parts of the document, and that your language settings
are the same.

Pesach Shelnitz AT

unread,
Jul 28, 2009, 7:38:00 AM7/28/09
to
Hi Gadi,

I doubt that changing the font will restore your text, but you can run the
following macro from anywhere within your document to fix this. Note that it
sets all of the paragraphs in your document to right-to-left paragraphs. This
is necessary so that the word order of the converted text will appear correct.

The macro converts the unintelligible text that you provided to:
פתוגן שניוני עם מאפיינים של פתוגן ראשוני- פירוט בהמשך
My rough translation of that would be: A secondary pathogen with
characteristics of a primary pathogen - details to follow

Sub ConvertBackToHebrew()
Dim i As Long
Dim num As Long
Dim char As String

With ActiveDocument
.Select
Selection.RtlPara
Selection.Collapse Direction:=wdCollapseEnd
For i = 1 To .Characters.Count
char = .Characters(i)
If AscW(char) >= &HE0 And AscW(char) <= &HFF Then
num = AscW(char) + &H4F0
.Characters(i) = ChrW(num)
End If
Next
End With
End Sub

--
Hope this helps,
Pesach Shelnitz

0 new messages