>Well, at least I found a font, which works. It's CourierWINCTT.zip from the site.
>
>The only problem is to replace font from one to another in the whole document. I think, it could be done through Automation, but I'm a complete novice in this respect...
>
>May be Tamar will jump into this thread with suggestions...

Something like this:
oWord = CREATEOBJECT("Word.Application")
oWord.documents.open(fullpath(file_name))
WITH oWord.activedocument.RANGE(30,40)
.FONT.NAME = "Courier New"
.FONT.bold = .T.
.FONT.SIZE = 14
ENDWITH
oWord.activedocument.SAVE
oWord.QUIT