%%[ ProductName: Distiller ]%% %%[ Page: 1 ]%% %%[ Page: 2 ]%% %%[ Page: 3 ]%% %%[ Page: 4 ]%% %%[ Page: 5 ]%% %%[ Page: 6 ]%% %%[ Page: 7 ]%% %%[ Page: 8 ]%% %%[ Page: 9 ]%% %%[ Page: 10 ]%% %%[ Page: 11 ]%% %%[ Page: 12 ]%% %%[ Error: Vilna cannot be embedded due to licensing restrictions.]%% %%[ Error: invalidfont; OffendingCommand: xshow ]%% Stack: [54 66] () %%[ Flushing: rest of job (to end-of-file) will be ignored ]%% %%[ Warning: PostScript error. No PDF file produced. ] %%>>>>Well, at least I found a font, which works. It's CourierWINCTT.zip from the site.
>>>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>>