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