Вывод окна приложения OpenOffice на передний план

	ServiceManager = Новый COMОбъект("com.sun.star.ServiceManager");
	Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop");
	Scr = Новый COMОбъект("MSScriptControl.ScriptControl");
	Scr.Language="javascript";
	Scr.Eval("Args=new Array()");
	Args = Scr.Eval("Args");
	Scr.AddObject("ServiceManager", ServiceManager);
	
	//Тут получим шаблон договора и сохраним его на диск.
	Макет = ПолучитьМакет("Макет"); 
	ГдеИскать = СокрЛП(КаталогВременныхФайлов())+"ДоговорПоставки.doc";
    Макет.Записать(ГдеИскать);

	Попытка
		FileNameSh = СокрЛП(ГдеИскать);
		URL = СтрЗаменить(FileNameSh," ","%20");
		URL = СтрЗаменить(URL,"\","/");
		URL ="file://localhost/" + URL;

		OpenOffice = Desktop.LoadComponentFromURL(URL, "_blank", 0, Args);
	Исключение
		Сообщить("Ошибка при попытке создать объект ", СтатусСообщения.Внимание);
		Возврат 0;
	КонецПопытки;

	Replace =OpenOffice.CreateReplaceDescriptor();