[CDR 2017-2021] Запретить подстановку шрифтов

huck

безучастник
Топикстартер
15 лет на форуме
Сообщения
703
Реакции
59
Теоретически это делается так:
Открываем диалог с предложением подстановки шрифта
Код:
Sub MatchingPanose()
 PanoseMatching = cdrPanosePrompt
 OpenDocument "C:\My Documents\Graphic1.cdr"
End Sub
Этот вариант обсуждался. Он требует действий пользователя. Ну или автокликера.
 

Gad

Сообщения
2 975
Реакции
1 408

huck

безучастник
Топикстартер
15 лет на форуме
Сообщения
703
Реакции
59
А ещё что-то по поводу шрифтов (и текста) можно посмотреть в каталоге font или metadata внутри кореловского файла
(если открыть его как архив)
Вроде рабочий вариант, только выяснилось, что CDR до 13 версии (включительно) упакованы в RIFF, а не в ZIP. Ищу, как распаковывать, или какой-нибуд обход.
 

Gadalka

R.I.P.
Сообщения
2 530
Реакции
868
  • Спасибо
Реакции: huck