Как сформировать новый документ на основании файла, шаблона OpenOffice?

 //формируем файл из OpenOffice	
	Попытка
		ServiceManager = Новый COMОбъект("com.sun.star.ServiceManager");
		Reflection = ServiceManager.createInstance("com.sun.star.reflection.CoreReflection");
		Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop");
		
		Args = Новый COMSafeArray("VT_DISPATCH", 1);
		OOДокумент = Desktop.loadComponentFromURL(ПреобразоватьВURL(ИмяФайла), "_blank", 0, Args);
		
		//------------------------------------------------------------
		// Перебираем таблицы в документе, и сопоставляем имена переменных
		// с именами табличных частей.
		Для ТекущаяТаблица = 0 ПО OOДокумент.getTextTables().Count-1 Цикл 
			мТабличнаяЧасть = Неопределено;
			Для ТекущаяСтрока  = 0 ПО OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).Rows.Count-1 Цикл 
				Для ТекущаяКолонка = 0 ПО OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).Columns.Count-1 Цикл 
					
					мТабличнаяЧасть = ИмяТабличнойЧастиВСтроке(
					ПолучитьСтартПеременной( OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).getCellByPosition(ТекущаяКолонка, ТекущаяСтрока).string	) 
					,ДокументСсылка);
					
					Если  мТабличнаяЧасть <> Неопределено Тогда
						Прервать;;	
					КонецЕсли;	
					
				КонецЦикла;
				Если  мТабличнаяЧасть <> Неопределено Тогда
					Прервать;;	
				КонецЕсли;	
			КонецЦикла;
			
			//Итак мы имеем номер текущей таблицы  и имя табличной части
			Если  мТабличнаяЧасть <> Неопределено Тогда
				//Производим редактирование нашей таблицы в соответствии с количеством строк
				ВсегоСтрокТЧ = 0;
				Для Каждого строкаТЧ Из  ДокументСсылка[мТабличнаяЧасть.Имя] Цикл
					ВсегоСтрокТЧ = ВсегоСтрокТЧ+1;
				КонецЦикла;
				//ВсегоСтрокТЧ = ДокументСсылка[мТабличнаяЧасть.Имя].Количество;
				// Добавляем строки
				Для ТекущаяСтрокаТЧ  = 1  По ВсегоСтрокТЧ Цикл
					Если ТекущаяСтрокаТЧ <> ВсегоСтрокТЧ  Тогда
						// Добавляем строку перед нашей
						OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).Rows.I_nsertByIndex(ТекущаяСтрока+ТекущаяСтрокаТЧ-1, 1);
					КонецЕсли;	
					
					Для ТекКол = 0 ПО OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).Columns.Count-1 Цикл 
						
						Если ТекущаяСтрокаТЧ <> ВсегоСтрокТЧ  Тогда             
							ТекстПеременной = ПолучитьПеременнуюИзСтроки(СокрЛП(OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).getCellByPosition(ТекКол, ТекущаяСтрока+ТекущаяСтрокаТЧ).string));
							ТекстПеременной = ?(ПустаяСтрока(ТекстПеременной),"", "["+"_"+Строка(ТекущаяСтрокаТЧ)+"_"+ТекстПеременной+"]");
							OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).getCellByPosition(ТекКол, ТекущаяСтрока+ТекущаяСтрокаТЧ-1).string = ТекстПеременной;
						Иначе                                                   
							ТекстПеременной = ПолучитьПеременнуюИзСтроки(СокрЛП(OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).getCellByPosition(ТекКол, ТекущаяСтрока+ТекущаяСтрокаТЧ-1).string));
							ТекстПеременной = ?(ПустаяСтрока(ТекстПеременной),"", "["+"_"+Строка(ТекущаяСтрокаТЧ)+"_"+ТекстПеременной+"]");
							
							OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).getCellByPosition(ТекКол, ТекущаяСтрока+ТекущаяСтрокаТЧ-1).string = ТекстПеременной;
						КонецЕсли;	
					КонецЦикла;	
				КонецЦикла;	
			КонецЕсли;	
		КонецЦикла;
		
		//------------------------------------------------------------
		// Вытаскивам из шаблона текст 
		//ТекстДокумента = MSWordDoc.Range(0, MSWordDoc.Characters.Count).Text;
		ТекстДокумента = ООПолучитьТекст(OOДокумент);
		
		// Из текста вытаскиваем Имена переменных залюченных а скобки []
		Список = ПолучитьСписокПеременных(ТекстДокумента);
		//Список.ВыбратьЭлемент();
		
		// Заполняем в структуру ревизитовперечень переменных
		СтруктураРеквизитов=СтруктураРеквизитовДокумента(ДокументСсылка);
		ЗначениеРеквизита="";
		
		OOЗамена = OOДокумент.CreateReplaceDescriptor();
		
		Для Каждого ЭлементСписка Из Список Цикл
			
			// Если находится соответствие переменной из документа и шаблона то производим замену
			Если СтруктураРеквизитов.Свойство(ЭлементСписка.Значение, ЗначениеРеквизита ) Тогда
				OOЗамена.SearchString  = "["+ЭлементСписка.Значение+"]";
				OOЗамена.ReplaceString = Строка(ЗначениеРеквизита);
				OOДокумент.ReplaceAll(OOЗамена);
			Иначе
				Сообщить("-> " + ЭлементСписка.Значение+" - Не найден в структуре документа");
				// Заменим переменную на пустую строку
				OOЗамена.SearchString  = "["+ЭлементСписка.Значение+"]";
				OOЗамена.ReplaceString = " ";
				OOДокумент.ReplaceAll(OOЗамена);
				
			КонецЕсли;
			
		КонецЦикла;
		OOДокумент.getCurrentController().getFrame().getContainerWindow().setFocus();
		
	Исключение
		Предупреждение(ОписаниеОшибки());
	КонецПопытки;		   

 		OOЗамена = OOДокумент.CreateReplaceDescriptor();
		
		Для Каждого ЭлементСписка Из Список Цикл
			
			// Если находится соответствие переменной из документа и шаблона то производим замену
			Если СтруктураРеквизитов.Свойство(ЭлементСписка.Значение, ЗначениеРеквизита ) Тогда
				OOЗамена.SearchString  = "["+ЭлементСписка.Значение+"]";
				OOЗамена.ReplaceString = Строка(ЗначениеРеквизита);
				OOДокумент.ReplaceAll(OOЗамена);
			Иначе
				Сообщить("-> " + ЭлементСписка.Значение+" - Не найден в структуре документа");
				// Заменим переменную на пустую строку
				OOЗамена.SearchString  = "["+ЭлементСписка.Значение+"]";
				OOЗамена.ReplaceString = " ";
				OOДокумент.ReplaceAll(OOЗамена);
				
			КонецЕсли;
			
		КонецЦикла;
		OOДокумент.getCurrentController().getFrame().getContainerWindow().setFocus();