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

[izrukvruki]

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

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

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

 

[Gad]

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

открывать пачками макросом

Также попробовал записать макрос на открытие файла:

Sub open_file()
    ' Recorded 14.02.2020
    Dim doc1 As Document
    Set doc1 = OpenDocument("[путь]\[имя_файла].cdr")
End Sub

Вот так открылось без вопросов про замену, хотя никакой команды на согласие с заменой шрифта нет...

 

[izrukvruki]

пхнуть

Неее, Пхать не буду... Системные шрифты очень мало где стоят, стараюсь избегать...


А вот эта опция, разве не должна работать как мне и нужно?

 

[lev]

Можете добавить в макрос PanoseMatching = cdrPanosePermanent, чтобы автоподставился ближайший шрифт и сохранился.

 

[Siryi1]

Неее, Пхать не буду... Системные шрифты очень мало где стоят, стараюсь избегать...


А вот эта опция, разве не должна работать как мне и нужно?
Посмотреть вложение 127709

ну что помогло? не вылетает окно уже?

 

[izrukvruki]

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

Также попробовал записать макрос на открытие файла:

Sub open_file()
    ' Recorded 14.02.2020
    Dim doc1 As Document
    Set doc1 = OpenDocument("[путь]\[имя_файла].cdr")
End Sub

Вот так открылось без вопросов про замену, хотя никакой команды на согласие с заменой шрифта нет...

Ага, если макросом открывать то окна не появляются...
Оказалась, самая большая проблема с windings - вроде символы там же стоят, но вместо вместо нужных маркеров появляются странные символы (чувство что из другого шрифта). Но слава Богу, что тоже мало где используется.