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.