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

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