[CDR 2017-2021] Системные шрифты

izrukvruki

Топикстартер
15 лет на форуме
Сообщения
1 833
Реакции
302
Выделили помощнее компьютер мне. На старом стояла 7ка, на новом стоит 10ка.
Дополнительные шрифты установились нормально, но кое-где в старых макетах встречаются системные шрифты (Tahoma, Times, Verdana и др)
И при открытии макетов с этими шрифтами выскакивает такое окно:

1581673506628.png

Т.е. как я понимаю,системные шрифты стоят более новые.

Нельзя ли как-то настроить замену шрифтов, чтоб один раз согласиться с этой заменой (т.е. чтоб версия 5 менялась на версию 7) в одном макете, и она бы заменялась в остальных (без диалогового окна).
Просто приходится макеты открывать пачками макросом и экспортировать, не хочется чтоб окна с заменой, мешали макросу...
 
Последнее редактирование:

Gad

Сообщения
2 971
Реакции
1 405
Можно было бы попробовать взять старые шрифты с Win7 и пхнуть в 10-ку, но перед этим обязательно сохранить точку восстановления (или копию раздела с системой) с системными шрифтами может быть все не просто :)
открывать пачками макросом
Также попробовал записать макрос на открытие файла:
Код:
Sub open_file()
    ' Recorded 14.02.2020
    Dim doc1 As Document
    Set doc1 = OpenDocument("[путь]\[имя_файла].cdr")
End Sub
Вот так открылось без вопросов про замену, хотя никакой команды на согласие с заменой шрифта нет...
 
  • Спасибо
Реакции: izrukvruki

lev

Модератор
20 лет на форуме
Сообщения
2 143
Реакции
2 066
Можете добавить в макрос PanoseMatching = cdrPanosePermanent, чтобы автоподставился ближайший шрифт и сохранился.
 
  • Спасибо
Реакции: Ksenia

Siryi1

Участник
Сообщения
7
Реакции
1

izrukvruki

Топикстартер
15 лет на форуме
Сообщения
1 833
Реакции
302
Можно было бы попробовать взять старые шрифты с Win7 и пхнуть в 10-ку, но перед этим обязательно сохранить точку восстановления (или копию раздела с системой) с системными шрифтами может быть все не просто :)

Также попробовал записать макрос на открытие файла:
Код:
Sub open_file()
    ' Recorded 14.02.2020
    Dim doc1 As Document
    Set doc1 = OpenDocument("[путь]\[имя_файла].cdr")
End Sub
Вот так открылось без вопросов про замену, хотя никакой команды на согласие с заменой шрифта нет...
Ага, если макросом открывать то окна не появляются...
Оказалась, самая большая проблема с windings - вроде символы там же стоят, но вместо вместо нужных маркеров появляются странные символы (чувство что из другого шрифта). Но слава Богу, что тоже мало где используется.