Процедура ПриОткрытии()
  	Попытка
		WSHShell = СоздатьОбъект("WScript.Shell");
		WSHShell.SendKeys("%");
		WSHShell.SendKeys("{LEFT}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}");
	Исключение
      
    КонецПопытки;
КонецПроцедуры