text converted spontaneously into unintelligible symbols

G

Gadi

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
 
C

Character

Gadi said:
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.
 
P

Pesach Shelnitz

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top