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

izrukvruki

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

1581673506628.png

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

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

Gad

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

lev

Модератор
15 лет на форуме
Сообщения
1 889
Оценка реакций
1 742
Можете добавить в макрос PanoseMatching = cdrPanosePermanent, чтобы автоподставился ближайший шрифт и сохранился.
 

Siryi1

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

izrukvruki

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

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