Диалог = Новый ДиалогВыбораЦвета; 
Если Диалог.Выбрать() Тогда 
 ВыбранныйЦвет = Диалог.Цвет; 
КонецЕсли; Диалог = Новый ДиалогВыбораШрифта; 
Если Диалог.Выбрать() Тогда 
    ВыбранныйШрифт = Диалог.Шрифт; 
КонецЕсли;