>Nadya,
>
>>Hi everybody,
>>
>>I have a Word document, which contains Russian and Hebrew text. For Russian letters Times New Roman font is used, for Hebrew - Vilna font is used. I just tried several other Hebrew fonts I have on my system (David, Miriam, etc.), all of them produce square box instead of the Hebrew letter. I need to convert this document into PDF. I tried Adobe Writer as a printer, but it transforms Russian letters into "greek symbols". I tried Adobe Distiller, but it tells me, that I have a licensing problem with Vilna font, so this font could not be embedded. Does it mean, I have to buy somehow Vilna font?
>>
>>I also found, that CourierWINCTT font displays Russian letters correctly in PDF.
>>
>>So, what could be my options:
>>
>>1) Try to purchase Vilna font
>>
>>2) Convert text from Times New Roman into CourierWINCTT, but how can I do it for the whole huge document automatically?
>
>Something like:
>
>Procedure iFindFONTReplace
>
>oWord = CREATEOBJECT("Word.Application")
>with oWord
> .documents.open(fullpath(file_name))
> *Go top
> wdStory=6
> .Selection.HomeKey(wdStory)
>
> With .Selection.Find
> * What to replace
> .ClearFormatting
> With .Font
> .Name = "Times New Roman"
> .Size = 10
> EndWith
> * Replace to what
> .Replacement.ClearFormatting
> With .Replacement.Font
> .Name = "Times New Roman"
> .Size = 8
> EndWith
> * set additional parameters if any
> * some of them are default and can be omitted ;
> *and/or included directly in the Execute statement
> wdFindContinue= 1
> Wdreplaceall =2
>
> .Text = ""
> .Replacement.Text = ""
> .Forward = .t.
> .Wrap = wdFindContinue
> .Format = .t.
> .MatchCase = .f.
> .MatchWholeWord = .f.
> .MatchWildcards = .f.
> .MatchSoundsLike = .f.
> .MatchAllWordForms = .f.
>
> * Replace all, do it
> .Execute(,,,,,,,,,, Wdreplaceall)
>
> EndWith
> .activedocument.SAVEAS(fullpath(file_new_name))
>endwith
>
>oWord.quit
>oWord=.null.
>release oWord
>
>>
>>Did somebody have the same problem before?
>>
>>I have Adobe 4 and Windows 95.
Terrific! And it was done in few seconds!
Yuri, how can I tell Word to convert annotations as well? It currently converted all except annotations.
Thanks again. You're a great help!
If it's not broken, fix it until it is.
My Blog