Диалог = Новый ДиалогВыбораЦвета; 

Если Диалог.Выбрать() Тогда 

    ВыбранныйЦвет = Диалог.Цвет; 

КонецЕсли;    

 Диалог = Новый ДиалогВыбораШрифта; 

Если Диалог.Выбрать() Тогда 

    ВыбранныйШрифт = Диалог.Шрифт; 

КонецЕсли;