ВозможныеИменаФайлаШрифтаEANGNIVC = Новый Массив; ВозможныеИменаФайлаШрифтаEANGNIVC.Добавить("EANGNIVC.TTF"); ВозможныеИменаФайлаШрифтаEANGNIVC.Добавить("EANG000.TTF"); Попытка objShell = Новый COMОбъект("Shell.Application"); objFolder = objShell.Namespace(20); ПутьККаталогуШрифтов = objFolder.Items().Item().Path; Если Прав(ПутьККаталогуШрифтов, 1) <> "\" Тогда ПутьККаталогуШрифтов = ПутьККаталогуШрифтов + "\"; КонецЕсли; ФайлШрифтаСуществует = Ложь; Для Каждого ВозможноеИмяФайлаШрифта Из ВозможныеИменаФайлаШрифтаEANGNIVC Цикл ОбъектФайлШрифтаВКаталогеШрифтов = Новый Файл(ПутьККаталогуШрифтов + ВозможноеИмяФайлаШрифта); Если ОбъектФайлШрифтаВКаталогеШрифтов.Существует() Тогда ФайлШрифтаСуществует = Истина; Прервать; КонецЕсли; КонецЦикла; Если НЕ ФайлШрифтаСуществует Тогда ВремКаталог = КаталогВременныхФайлов() + Строка(Новый УникальныйИдентификатор) + "\"; СоздатьКаталог(ВремКаталог); ВремФайлШрифта = ВремКаталог + ВозможныеИменаФайлаШрифтаEANGNIVC[0]; Обработки.ОбщиеОбъектыРегламентированнойОтчетности.ПолучитьМакет("EANGNIVC").Записать(ВремФайлШрифта); objFolder.CopyHere(ВремФайлШрифта); УдалитьФайлы(ВремКаталог); КонецЕсли; objFolder = Неопределено; objShell = Неопределено; Исключение КонецПопытки;