Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Word document with Russian & Hebrew
Message
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00692428
Message ID:
00692559
Views:
30
>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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform