activewindow » Поиск

Результаты по ключевому слову: activewindow

Как защитить паролем создаваемый Word документ Категория: Работа с Microsoft Office и OpenOffice

Быстрая выгрузка отчетов в Excel, наложение Фильта и отображение ярлыка

Вместо Таб.Показать() используем глобальную функцию - и отчет показывается сразу в Excel в удобоваримом виде - с форматированием колонок по ширине, автофильтром и ярлычками листов

Код 1C v 7.x

 Процедура глОткрытьВЭкселе(Таб,ИмяФайла="",НеИзменятьВысотуСтроки=0) Экспорт

	Попытка 

		// запускаем Excel-Server 

		Excel = СоздатьОбъект("Excel.Application");

	Исключение       

		Excel = 0;

		Предупреждение("MS Excel не загружен!");

		Возврат;

	КонецПопытки;   

	

	Если ТипЗначенияСтр(Таб)="Строка" Тогда

		Excel.WorkBooks.Open(Таб);

	Иначе                                                          

		Если НеИзменятьВысотуСтроки=0 Тогда

			ШиринаТаблицы=Таб.ШиринаТаблицы();

			Область=Таб.Область(1,1,Таб.ВысотаТаблицы(),ШиринаТаблицы);

			Область.ВысотаСтроки(12);                 

		КонецЕсли;

		

		Если Найти(ИмяФайла,":")=0 Тогда

			ИмяФайла=КаталогПользователя()+ИмяФайла;

		КонецЕсли;

		Если Найти(Врег(ИмяФайла),"XLS")=0 Тогда

			ИмяФайла=ИмяФайла+".xls";

		КонецЕсли;

		

		Таб.Записать(?(ПустоеЗначение(ИмяФайла)=0,ИмяФайла,КаталогПользователя()+"Таблица.xls"),"XLS");

		Excel.WorkBooks.Open(ИмяФайла);

		

		Excel.Visible = 0;

		

		//добавляем автофильтр и форматирование колонок по ширине

		Excel.Columns.AutoFit();

		Range = Excel.Range(Excel.Cells(1, 1), Excel.Cells(1, ШиринаТаблицы));

		Range.S_elect();

		Range.AutoFilter();

		

		//показываем вечно прячущиеся ярлычки листов

		Excel.ActiveWindow.DisplayWorkbookTabs = -1;

		Excel.ActiveWindow.TabRatio = 0.25;

	КонецЕсли;

	

	Excel.Visible=1;	  

	Excel=0;

КонецПроцедуры

mikukrnet

Категория: Работа с Microsoft Office и OpenOffice

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

Код 1C v 8.х

  Перем СсылкаНаДокумент;



Процедура СформироватбФайл_MS_Word_И_OpenOffice(Кнопка)

	

	ДокументСсылка = СсылкаНаДокумент;

	ИмяФайла = ПолучитьИмяВременногоФайла();



	// Теперь формируем файл из MS Wordа

	Попытка

		

		MSWord = новый COMОбъект("Word.Application");

		//Передаем текущие параметры форм в MSWord

		MSWord.Documents.Open(ИмяФайла);	

		MSWordDoc = MSWord.ActiveDocument();

		

		WordContent =  MSWord.ActiveDocument().ActiveWindow.S_election;

		

		//------------------------------------------------------------

		// Перебираем таблицы в документе, и сопоставляем имена переменных

		// с именами табличных частей.

		Для ТекущаяТаблица = 1 ПО MSWordDoc.Tables.Count Цикл 

			мТабличнаяЧасть = Неопределено;

			Для ТекущаяСтрока  = 1 ПО MSWordDoc.Tables(ТекущаяТаблица).Rows.Count Цикл 

				Для ТекущаяКолонка = 1 ПО MSWordDoc.Tables(ТекущаяТаблица).Columns.Count Цикл 

					

					мТабличнаяЧасть = ИмяТабличнойЧастиВСтроке(

					ПолучитьСтартПеременной( MSWordDoc.Tables(ТекущаяТаблица).Cell(ТекущаяСтрока,ТекущаяКолонка).Range.Text	) 

					,ДокументСсылка);

					

					Если  мТабличнаяЧасть <> Неопределено Тогда

						Прервать;;	

					КонецЕсли;	

					

				КонецЦикла;

				Если  мТабличнаяЧасть <> Неопределено Тогда

					Прервать;;	

				КонецЕсли;	

			КонецЦикла;

			

			//Итак мы имеем номер текущей таблицы  и имя табличной части

			Если  мТабличнаяЧасть <> Неопределено Тогда

				//Производим редактирование нашей таблицы в соответствии с количеством строк

				ВсегоСтрокТЧ = 0;

				Для Каждого строкаТЧ Из  ДокументСсылка[мТабличнаяЧасть.Имя] Цикл

					ВсегоСтрокТЧ = ВсегоСтрокТЧ+1;

				КонецЦикла;

				//ВсегоСтрокТЧ = ДокументСсылка[мТабличнаяЧасть.Имя].Количество;

				// Добавляем строки

				Для ТекущаяСтрокаТЧ  = 1  По ВсегоСтрокТЧ Цикл

					Если ТекущаяСтрокаТЧ <> ВсегоСтрокТЧ  Тогда

						MSWordDoc.Tables(ТекущаяТаблица).Rows.Add(MSWordDoc.Tables(ТекущаяТаблица).Rows(ТекущаяСтрока+ТекущаяСтрокаТЧ-1));

					КонецЕсли;	

					//MSWordDoc.Tables(ТекущаяТаблица).Cell(ТекущаяСтрока+ТекущаяСтрокаТЧ-1,2).Range.Text = Строка(ТекущаяСтрокаТЧ);

					Для ТекКол = 1 ПО MSWordDoc.Tables(ТекущаяТаблица).Columns.Count Цикл 

						Если ТекущаяСтрокаТЧ <> ВсегоСтрокТЧ  Тогда

							ТекстПеременной = ПолучитьПеременнуюИзСтроки(СокрЛП(MSWordDoc.Tables(ТекущаяТаблица).Cell(ТекущаяСтрока+ТекущаяСтрокаТЧ,ТекКол).Range.Text));

							ТекстПеременной = ?(ПустаяСтрока(ТекстПеременной),"", "["+"_"+Строка(ТекущаяСтрокаТЧ)+"_"+ТекстПеременной+"]");

							MSWordDoc.Tables(ТекущаяТаблица).Cell(ТекущаяСтрока+ТекущаяСтрокаТЧ-1,ТекКол).Range.Text = ТекстПеременной;

						Иначе

							ТекстПеременной = ПолучитьПеременнуюИзСтроки(СокрЛП(MSWordDoc.Tables(ТекущаяТаблица).Cell(ТекущаяСтрока+ТекущаяСтрокаТЧ-1,ТекКол).Range.Text));

							ТекстПеременной = ?(ПустаяСтрока(ТекстПеременной),"", "["+"_"+Строка(ТекущаяСтрокаТЧ)+"_"+ТекстПеременной+"]");

							MSWordDoc.Tables(ТекущаяТаблица).Cell(ТекущаяСтрока+ТекущаяСтрокаТЧ-1,ТекКол).Range.Text = ТекстПеременной;

						КонецЕсли;	

					КонецЦикла;	

				КонецЦикла;	

				//MSWordDoc.Tables(ТекущаяТаблица).Rows.Delete();

				//MSWordDoc.Tables(ТекущаяТаблица).Rows(3).Delete();

			КонецЕсли;	

		КонецЦикла;

		

		//------------------------------------------------------------

		// Вытаскивам из шаблона текст 

		ТекстДокумента = MSWordDoc.Range(0, MSWordDoc.Characters.Count).Text;

		

		// Из текста вытаскиваем Имена переменных залюченных а скобки []

		Список = ПолучитьСписокПеременных(ТекстДокумента);

		//Список.ВыбратьЭлемент();

		

		// Заполняем в структуру ревизитовперечень переменных

		СтруктураРеквизитов=СтруктураРеквизитовДокумента(ДокументСсылка);

		ЗначениеРеквизита="";

		Для Каждого ЭлементСписка Из Список Цикл

			

			// Если находится соответствие переменной из документа и шаблона то производим замену

			Если СтруктураРеквизитов.Свойство(ЭлементСписка.Значение, ЗначениеРеквизита ) Тогда

				//Сообщить("["+ЭлементСписка.Значение+"]"+" : "+ЗначениеРеквизита);

				WordContent.Find.Execute("["+ЭлементСписка.Значение+"]",0,0,0,0,0,-1,,,Строка(ЗначениеРеквизита),2);		

			Иначе

				Сообщить("-> " + ЭлементСписка.Значение+" - Не найден в структуре документа");

				// Заменим переменную на пустую строку

				WordContent.Find.Execute("["+ЭлементСписка.Значение+"]",0,0,0,0,0,-1,,," ",2);		

			КонецЕсли;

			

		КонецЦикла;

		

		//автоматически обновляем поля документа

		MSWord.S_election.WholeStory();

		MSWord.S_election.Fields.Update();

		MSWord.S_election.HomeKey();	

		

		//MSWordDoc.SaveAs(ИмяФайла);

		

		//отображаем MSWord

		MSWord.Visible=1;

		MSWord.Activate();

		

	Исключение

		Предупреждение(ОписаниеОшибки());

		MSWord.Quit();

	КонецПопытки;

	

	

	// Теперь формируем файл из 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();

		

	Исключение

		Предупреждение(ОписаниеОшибки());

	КонецПопытки;			

	

КонецПроцедуры

Код 1C v 8.х

   //ДОПОЛНИТЕЛЬНО НЕОБХОДИМЫЕ ФУНКЦИИ
// Добавлем форматы представления полей и дополнительную информацию о полях
Процедура ДобавитьФорматы(ПереченьРеквизитов,Значение,пПредставлениеРеквизита, ДокументСсылка = Неопределено)
	Если ТипЗнч(Значение) = Тип("Дата")  Тогда  // расширяем представление даты
		ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"ДФddMMyyyy",Формат(Значение,"ДФ=dd.MM.yyyy"));
		ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"ДЛФDD",Формат(Значение,"ДЛФ=DD"));
	ИначеЕсли ТипЗнч(Значение) = Тип("Число") Тогда  // расширяем представление числа
		ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"ЧДЦ2ЧГ0",Формат(Значение,"ЧДЦ=2; ЧГ=0"));
		ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"ЧДЦ2",Формат(Значение,"ЧДЦ=2"));
		ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"ЧПропись",Значение);
	ИначеЕсли  (ТипЗнч(Значение) = Тип("СправочникСсылка.КонтактныеЛица"))  или  (ТипЗнч(Значение) = Тип("СправочникСсылка.ФизическиеЛица")) Тогда
		// Расширяем выводимые поля для типов физ. лица, контакные лица сокращением инициалов	
		ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"ФИО",Строка(Значение));
	КонецЕсли
КонецПроцедуры

Процедура ЗаполнитьРеквизиты(мГлубинаРекурсии,ПереченьРеквизитов,РеквизитСсылка,Реквизит,пПредставлениеРеквизита)
	
	мГлубинаРекурсии = мГлубинаРекурсии+1;
	ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"Код",РеквизитСсылка["Код"]);
	ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+"Наименование",РеквизитСсылка["Наименование"]);
	
	Для Каждого ЭлементРеквизита Из Реквизит.Реквизиты  Цикл
		ПереченьРеквизитов.Вставить(пПредставлениеРеквизита+"_"+ЭлементРеквизита.Имя,РеквизитСсылка[ЭлементРеквизита.Имя]);
		Если (Найти(ЭлементРеквизита.Тип,"Справочник ссылка")>0) И (мГлубинаРекурсии <=3) И (Найти(ЭлементРеквизита.Тип,",")=0) Тогда
			///+++
			ЗаполнитьРеквизиты(мГлубинаРекурсии, ПереченьРеквизитов,РеквизитСсылка[ЭлементРеквизита.Имя],РеквизитСсылка[ЭлементРеквизита.Имя].Метаданные(),пПредставлениеРеквизита+"_"+ЭлементРеквизита.Имя);
		Иначе
			ДобавитьФорматы(ПереченьРеквизитов,РеквизитСсылка[ЭлементРеквизита.Имя],пПредставлениеРеквизита+"_"+ЭлементРеквизита.Имя);
		КонецЕсли
	КонецЦикла;	
	
КонецПроцедуры

Функция ПолучитьСписокПеременных(ТекстШаблона)
	СписокПеременных = Новый СписокЗначений();
	ЕщеЕсть = Истина;
	Пока ЕщеЕсть Цикл
		ПервыйСимвол = Найти(ТекстШаблона,"[");
		Если ПервыйСимвол > 0 Тогда
			ВторойСимвол = Найти(ТекстШаблона,"]");
			Если (ВторойСимвол > 0 И ВторойСимвол > ПервыйСимвол) Тогда
				СписокПеременных.Добавить(Сред(ТекстШаблона,ПервыйСимвол + 1,ВторойСимвол - ПервыйСимвол - 1));
				ТекстШаблона = Сред(ТекстШаблона,ВторойСимвол + 1);
			Иначе
				ЕщеЕсть = Ложь;
			КонецЕсли;
		Иначе
			ЕщеЕсть = Ложь;
		КонецЕсли;
	КонецЦикла;
	Возврат СписокПеременных;
КонецФункции

Функция СтруктураРеквизитовДокумента(ДокументСсылка)  Экспорт
	ПереченьРеквизитов = Новый Структура;
	ПереченьРеквизитов.Вставить("Дата",ДокументСсылка["Дата"]);
	ДобавитьФорматы(ПереченьРеквизитов,ДокументСсылка["Дата"],"Дата");
	ПереченьРеквизитов.Вставить("Номер",ДокументСсылка["Номер"]);
	Реквизиты = ДокументСсылка.Метаданные().Реквизиты;
	Для Каждого Реквизит Из Реквизиты  Цикл
		мГлубинаРекурсии = 1;
		ПереченьРеквизитов.Вставить(Реквизит.Имя,ДокументСсылка[Реквизит.Имя]);
			ДобавитьФорматы(ПереченьРеквизитов,ДокументСсылка[Реквизит.Имя],Реквизит.Имя,ДокументСсылка);
		Если Найти(Реквизит.Тип,"Справочник ссылка")>0 Тогда
			ЗаполнитьРеквизиты(мГлубинаРекурсии,ПереченьРеквизитов,ДокументСсылка[Реквизит.Имя],ДокументСсылка[Реквизит.Имя].Метаданные(),Реквизит.Имя);
		Иначе
			//ДобавитьФорматы(ПереченьРеквизитов,ДокументСсылка[Реквизит.Имя],Реквизит.Имя);
		КонецЕсли;
	КонецЦикла;	
	ТабличныеЧасти = ДокументСсылка.Метаданные().ТабличныеЧасти;
	Для Каждого ТабличнаяЧасть Из ТабличныеЧасти  Цикл
		// Сообщить(ТабличнаяЧасть); // Для таблицы характеристик отрабатываем свой код // с выводом табличной части как набора реквизитов
		Если ТабличнаяЧасть.Имя = "Характеристики" Тогда
			Для Каждого СтрокаТабличнойЧасти Из ДокументСсылка[ТабличнаяЧасть.Имя]  Цикл
				мПредставлениеРеквизита = "Характеристика"+"_"+СтрЗаменить(СтрокаТабличнойЧасти["ВидХарактеристики"], " ", "_");
				мЗначение = СтрокаТабличнойЧасти["ЗначениеХарактеристики"];
				ПереченьРеквизитов.Вставить(мПредставлениеРеквизита,мЗначение);
				ДобавитьФорматы(ПереченьРеквизитов,мЗначение,мПредставлениеРеквизита,ДокументСсылка);
				Если Найти(ТипЗнч(мЗначение),"Справочник ссылка")>0 Тогда
					ЗаполнитьРеквизиты(мГлубинаРекурсии,ПереченьРеквизитов,мЗначение,мЗначение.Метаданные(),мПредставлениеРеквизита);
				КонецЕсли;
				
			КонецЦикла;	
		КонецЕсли;	
		//Перечень реквизитов табличной части
		Реквизиты = ТабличнаяЧасть.Реквизиты;
		Для Каждого Реквизит Из Реквизиты  Цикл
			Для Каждого СтрокаТабличнойЧасти Из ДокументСсылка[ТабличнаяЧасть.Имя]  Цикл
				мГлубинаРекурсии = 1;
				мПредставлениеРеквизита = "_"+СтрокаТабличнойЧасти.НомерСтроки+"_"+ТабличнаяЧасть.Имя+"_НомерСтроки";
				ПереченьРеквизитов.Вставить(мПредставлениеРеквизита,Строка(СтрокаТабличнойЧасти.НомерСтроки));
				мПредставлениеРеквизита = "_"+СтрокаТабличнойЧасти.НомерСтроки+"_"+ТабличнаяЧасть.Имя+"_"+Реквизит.Имя;
				мЗначение = СтрокаТабличнойЧасти[Реквизит.Имя];
				ПереченьРеквизитов.Вставить(мПредставлениеРеквизита,мЗначение);
				ДобавитьФорматы(ПереченьРеквизитов,мЗначение,мПредставлениеРеквизита,ДокументСсылка);
				Если Найти(ТипЗнч(мЗначение),"Справочник ссылка")>0 Тогда
					ЗаполнитьРеквизиты(мГлубинаРекурсии,ПереченьРеквизитов,мЗначение,мЗначение.Метаданные(),мПредставлениеРеквизита);
				Иначе
					//ДобавитьФорматы(ПереченьРеквизитов,мЗначение,мПредставлениеРеквизита);
				КонецЕсли;
			КонецЦикла;	
			//Если реквизит числовой, то подсчитываем итог  
			Если Реквизит.Тип.СодержитТип(Тип("Число"))  Тогда
				мЗначение = ДокументСсылка[ТабличнаяЧасть.Имя].Итог(Реквизит.Имя);
				мПредставлениеРеквизита = "Итог"+"_"+ТабличнаяЧасть.Имя+"_"+Реквизит.Имя;
				ПереченьРеквизитов.Вставить(мПредставлениеРеквизита,мЗначение);
				ДобавитьФорматы(ПереченьРеквизитов,мЗначение,мПредставлениеРеквизита,ДокументСсылка);
			КонецЕсли;
		КонецЦикла;			
	КонецЦикла;	    	
	Возврат ПереченьРеквизитов;
КонецФункции

Функция ИмяТабличнойЧастиВСтроке(Строка,ДокументСсылка)
	ТабличнаяЧасть=Неопределено;
	Если НЕ ПустаяСтрока(Строка) Тогда
		ТабличнаяЧасть = ДокументСсылка.Метаданные().ТабличныеЧасти.Найти(Строка) 
	КонецЕсли;	
	Возврат ТабличнаяЧасть;
	
КонецФункции

//Получает первый кусок переменной до _
Функция ПолучитьСтартПеременной(ПереданнаяСтрока) Экспорт
	СтартПеременной = "";
	ПервыйСимвол = Найти(ПереданнаяСтрока,"[");
	Если  ПервыйСимвол > 0 Тогда
		ВторойСимвол = Найти(ПереданнаяСтрока,"]");
		Если  (ВторойСимвол > 0) И (ВторойСимвол > ПервыйСимвол) Тогда
			Переменная = (Сред(ПереданнаяСтрока,ПервыйСимвол+1,ВторойСимвол-ПервыйСимвол-1));
			ВторойСимвол = Найти(Переменная,"_");
			Если  (ВторойСимвол > 0) И (ВторойСимвол > 1) Тогда
				СтартПеременной = Сред(Переменная,1,ВторойСимвол-1);
			КонецЕсли;	
		КонецЕсли;	
		
	КонецЕсли;	
	
	Возврат СтартПеременной;	
КонецФункции

// Получает переменную заключенную в скобки
Функция ПолучитьПеременнуюИзСтроки(ПереданнаяСтрока) Экспорт
	Переменная = "";
	ПервыйСимвол = Найти(ПереданнаяСтрока,"[");
	Если  ПервыйСимвол > 0 Тогда
		ВторойСимвол = Найти(ПереданнаяСтрока,"]");
		Если  (ВторойСимвол > 0) И (ВторойСимвол > ПервыйСимвол) Тогда
			Переменная = (Сред(ПереданнаяСтрока,ПервыйСимвол+1,ВторойСимвол-ПервыйСимвол-1));
		КонецЕсли;	
		
	КонецЕсли;	
	Возврат Переменная;	
КонецФункции// Идентифицирует табличную часть в строке

// Функция преобразует Windows имя файла в URL OpenOffice
Функция ПреобразоватьВURL(ИмяФайла)
	Возврат "file:///" + СтрЗаменить(ИмяФайла, "\", "/");
КонецФункции

// Функция извлекает текст из документа
Функция ООПолучитьТекст(OOДокумент)
	Текст = "";
	oParEnum = OOДокумент.getText().createEnumeration();
	Пока  oParEnum.hasMoreElements() Цикл
		oPar = oParEnum.nextElement();
		Если  oPar.supportsService("com.sun.star.text.Paragraph") ТОгда
			Текст = Текст + oPar.getString();
		ИначеЕсли oPar.supportsService("com.sun.star.text.TextTable") Then
			//Сообщить(oPar.getString());
		КонецЕсли;
	КонецЦикла;
	Для ТекущаяТаблица = 0 ПО OOДокумент.getTextTables().Count-1 Цикл 
		Для ТекущаяСтрока  = 0 ПО OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).Rows.Count-1 Цикл 
			Для ТекущаяКолонка = 0 ПО OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).Columns.Count-1 Цикл 
				Текст = Текст + OOДокумент.getTextTables().getByIndex(ТекущаяТаблица).getCellByPosition(ТекущаяКолонка, ТекущаяСтрока).string;
			КонецЦикла;
		КонецЦикла;
	КонецЦикла;
	Возврат Текст;
КонецФункции

Категория: Работа с Microsoft Office и OpenOffice

Как выгрузиться в EXCEL со сводными таблицами

Пошаговый рабочий алгоритм выгрузки в EXCEL на примере выгрузки отчетов производства за смену(Автор статьи: Funny):

(1) Нарисовать форму обработки и к кнопке запуска прицепить процедуру:

Код 1C v 8.х

 Процедура КнопкаВыполнитьНажатие(Кнопка)
    
    Если ПроверкаДат() Тогда 
         Состояние("Запущена выгрузка данных");
         ПолучитьДанныеВТаблице();
         Если чОтчетов<>0 Тогда
                СортироватьТаблицу();
              ВыгрузитьТаблицуВФайл();
              ЗакрытьСистему();
              Состояние("Выгрузка завершена");
         Иначе
              //ЗакрытьСистемуАварийно();
 
         КонецЕсли;
    КонецЕсли;    
КонецПроцедуры

(2) Создадим функцию ПроверкаДат() корректного указания дат обработки
(3) Создадим процедуру ПолучитьДанныеВТаблице() выборки требуемых данных из документов в таблицу значений
(4) Создадим процедуру СортироватьТаблицу() для сортировки таблицы значений как нам нужно
(5) Создадим процедуру ВыгрузитьТаблицуВФайл() выгрузки ТЗ в Excel-файл:

Код 1C v 8.х

 Процедура ВыгрузитьТаблицуВФайл()

    

        //1. Open Excel-file 

 

               Если FileOfReports = Неопределено Тогда

            Попытка

                FileOfReports = Новый COMОбъект("Excel.Application");

                MyBook=FileOfReports.WorkBooks.Add(истина); //вместо истина можно вставить имя шаблона

 

                

                FirstSheet=MyBook.Worksheets(1);

                FirstSheet.Name = ОпределитьДату(НачПериода)+"-"+ОпределитьДату(КонПериода);

                FirstSheet.Activate();



                MyBook.SaveAs(КаталогDBF+"ОтчетыПроизводства.xls");

                

            Исключение

                Сообщить("ОШИБКА ЗАПИСИ В EXCEL-ФАЙЛ:"+ОписаниеОшибки());

                Сообщить("Совет: Возможно файл, в который должна быть произведена запись, Вами открыт для просмотра");

                Сообщить("Если это так, то закройте файл и запустите данную обработку повторно!");

            КонецПопытки;

            

            FileOfReports.Visible = 0;

        Иначе

            FileOfReports.Visible = 0;

            //FileOfReports.Visible = 1;

 

        КонецЕсли;

    

        //2.=========================================================================

        //Состояние("Анализ структуры файла...");

         

        чОтчетов = ТаблицаОтчетов.Количество();

        

        ЭлементыФормы.ИндикаторЗагрузки.МинимальноеЗначение = 0;

        ЭлементыФормы.ИндикаторЗагрузки.МаксимальноеЗначение = чОтчетов;

            

        ЭлементыФормы.Logo.Заголовок = "Выгружаю документы";

        лСчетчикИндикатора = 0;

        

        ВыгрузитьЗаголовокТаблицы(26);

        

        //ВЫГРУЖАЮ ТАБЛИЦУ В ФАЙЛ ПО СТРОКАМ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 

        фСтарт=истина; //флаг первого прохода

 

        чОт=2;         //номер первой строки с данными

         

        Пока чОтчетов >= 1 Цикл //Цикл по строкам Таблицы отчетов

 

              чОтчетов = чОтчетов -1;

              СтрокаОтчетов = ТаблицаОтчетов.Получить(чОтчетов);

             Если (СтрокаОтчетов.ДатаВыпуска=ДатаВыпускаПред) 

                И (СтрокаОтчетов.Принадлежность=ПринадлежностьПред)

                И (СтрокаОтчетов.Типоразмер=ТипоразмерПред)

                И (СтрокаОтчетов.ТипОсновы=ТипОсновыПред)

             Тогда

             Иначе

                ДатаВыпускаПред=СтрокаОтчетов.ДатаВыпуска; 

                ПринадлежностьПред=СтрокаОтчетов.Принадлежность;

                ТипоразмерПред=СтрокаОтчетов.Типоразмер;

                ТипОсновыПред=СтрокаОтчетов.ТипОсновы;

                Если фСтарт Тогда

                     фСтарт = ложь; //Уже не первый проход

 

                Иначе     

                     чДо=глСчетчикСтрок;

                     ВыгрузитьСтрокуИтог(чОт,чДо,26);

                КонецЕсли;

                чОт=глСчетчикСтрок;

             КонецЕсли;

             

             ВыгрузитьСтрокуОтчетовВФайл(СтрокаОтчетов,26);

             

             лСчетчикИндикатора = лСчетчикИндикатора + 1;

             ЭлементыФормы.ИндикаторЗагрузки.Значение = лСчетчикИндикатора;

             

             ОбработкаПрерыванияПользователя();

        

        КонецЦикла;

        чДо=глСчетчикСтрок;

        ВыгрузитьСтрокуИтог(чОт,чДо,26);

 

        //КОНЕЦ ВЫГРУЗКИ СТРОК В ФАЙЛ 

 

        Состояние("Данные файла выгружены");               

        //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 

        libСообщитьНК1("ИНФО: ШАГ 1 ВЫПОЛНЕН. Данные файла Отчеты.DBF успешно считаны",1);    

        

        //Состояние("Создание сводных таблиц");

 

        ЭлементыФормы.Logo.Заголовок = "Создание сводных таблиц";

        

        //РазделитьОбласти();

 

            //Range("A2").S_elect

 

            //ActiveWindow.FreezePanes = True

 

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"наим","Дата","Наим","","К");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"ЮВ","Дата","Наим,Каркас,Вид","","К");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"В пр(2)","Дата","Наим,Каркас,Основа","","К");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"В пр","Дата","Каркас,Основа","","К");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"Основа","Дата","Основа","","кг основы");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"Напыление","","Напылен","","кг напылен");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"Клей","","Дата","","кг клея");

            

КонецПроцедуры



Процедура СоздатьТаблицуЛист(стрДанные,стрСводнаяТаблица,стрПоле1,стрПоле2,стрПоле3,стрПоле4);

    

    //Создает сводную таблицу стрСводнаяТаблица с полями (стрПоле4 - поле реквизита) 

     //и размещает ее на одноименном листе

     //Заполняет сводную таблицу данными, взятыми с листа стрДанные

     

    //Поле стрПоле2 может быть полем списка через запятую

   

    //0. Вспомогательный разбор списка значений в стрПоле2 и определение числа значений

 

         лПоля.Очистить(); //сбросим все значения, если таковые весели в памяти

 

         стрПоля=стрПоле2;

         i=1;//число значений в списке

 

         Пока Найти(стрПоля,",")<>0 Цикл

             

              n=Найти(стрПоля,",");

              лПоля.Добавить(Сред(стрПоля,1,n-1));

              стрПоля=Сред(стрПоля,n+1);

              i=i+1;

              

         КонецЦикла;      

         лПоля.Добавить(стрПоля);

         

    //1. Установить диапазон выборки данных

     FirstSheet.Activate();

    дДиапазонДанных=FirstSheet.UsedRange.Address;

    ДиапазонДанных=FirstSheet.Name+"!"+Строка(дДиапазонДанных);    

    

    //2. Создать кэш под сводную таблицу

    //   аргументы не переменные, а текст с именем переменных (crazy)

     

         SourceType = xlDatabase;

         SourceData = ДиапазонДанных;

    

         Cache = MyBook.PivotCaches().Add(SourceType, SourceData);

 

    //для отладки: FileOfReports.Visible = 1;   

           

    //3. Породить из кэша сводную таблицу с именем стрСводнаяТаблица

         TableDestination="";

         TableName=стрСводнаяТаблица;

    

         Cache.CreatePivotTable(TableDestination,TableName);

    

    //4. Определить представление данных в сводной таблице

     //стрПоле1

 

    Если СокрЛП(стрПоле1)<>"" Тогда

         MyBook.ActiveSheet.PivotTables(TableName).PivotFields(стрПоле1).Orientation = 3; //xlRowField=1 то, что указывается справа у таблицы

 

    КонецЕсли;

    

    //стрПоле2

 

    чНомер=0;

    Пока чНомер<i Цикл 

         Если СокрЛП(лПоля[чНомер].Значение)<>"" Тогда

               MyBook.ActiveSheet.PivotTables(TableName).PivotFields(лПоля[чНомер].Значение).Orientation = 1; 

         КонецЕсли;



         чНомер = чНомер + 1;  

    КонецЦикла;      



    //стрПоле3

 

    Если СокрЛП(стрПоле3)<>"" Тогда

         MyBook.ActiveSheet.PivotTables(TableName).PivotFields(стрПоле3).Orientation = 2; //xlColumnField=2 то, что указывается в вепрхней части таблицы

 

    КонецЕсли;

    

    //стрПоле4

 

    Если СокрЛП(стрПоле4)<>"" Тогда

         MyBook.ActiveSheet.PivotTables(TableName).PivotFields(стрПоле4).Orientation = 4; //xlCount=4 data

 

    КонецЕсли;

    

    //5. Скрыть пустые строки в стрПоле2, предварительно проверив, что таковые СУЩЕСТВУЮТ!!!!

    //стрПоле2

 

    чНомер=0;

    Пока чНомер<i Цикл 

         Если СокрЛП(лПоля[чНомер].Значение)<>"" Тогда

              Если IfPivotItemExists(TableName,лПоля[чНомер].Значение,"(пусто)")Тогда

                    MyBook.ActiveSheet.PivotTables(TableName).PivotFields(лПоля[чНомер].Значение).PivotItems("(пусто)").Visible = False;

              КонецЕсли;

         КонецЕсли;

         чНомер = чНомер + 1;  

    КонецЦикла;      

             

    //6. Закрыть вспомогательные панели                                                  

 

        MyBook.ShowPivotTableFieldList = False;

        FileOfReports.CommandBars("PivotTable").Visible = False;

    

    //7. Присвоить активному листу имя, заданное в параметрах процедуры

 

        MyBook.ActiveSheet.Name = стрСводнаяТаблица;

    

    //8. Сохранить файл

 

        MyBook.Save();

    

КонецПроцедуры



Функция IfPivotItemExists(strTableName,strFieldName,strItemName)

//Проверяет существование позиции поля сводной таблицы со значением strItemName    

 

        nItems = MyBook.ActiveSheet.PivotTables(strTableName).PivotFields(strFieldName).PivotItems().Count;

        i = 1;

        Пока i <= nItems Цикл

            Если strItemName=MyBook.ActiveSheet.PivotTables(strTableName).PivotFields(strFieldName).PivotItems(i).Name Тогда

                 //Искомая позиция strItemName существует:

 

                 //Сообщить("Позиция "+strItemName+" найдена");

 

                 Возврат True;

            КонецЕсли;

            i=i+1; 

        КонецЦикла;

        

        //Сообщить("Позиция "+strItemName+" не найдена");

 

        Возврат False;

        

КонецФункции

Код 1C v 7.x

  РабочаяКнига = СоздатьОбъект("Excel.Application");
РабочаяКнига.SheetsInNewWorkbook = 1;
РабочаяКнига.Caption = "Отчет по договорам отгрузки";
NewBook = РабочаяКнига.Workbooks;
List = NewBook.Add;

СписокСтолбцов = СоздатьОбъект("СписокЗначений");
СписокСтолбцов.ДобавитьЗначение("Модель");
СписокСтолбцов.ДобавитьЗначение("Разнорядка");
СписокСтолбцов.ДобавитьЗначение("По договору");
СписокСтолбцов.ДобавитьЗначение("Отгрузили");
СписокСтолбцов.ДобавитьЗначение("Осталось");

//Заполним наименование столбцов: Модель, Разнорядка, Количество
Для Столбец = 1 По СписокСтолбцов.РазмерСписка() Цикл
	Ячейка = РабочаяКнига.Cells(1,Столбец);
	Ячейка.Value = СписокСтолбцов.ПолучитьЗначение(Столбец);
КонецЦикла; 

//Формируем запрос по регистру
//	//Создание объекта типа Запрос
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с ДатаНач по ДатаКон;
|Разнорядка = Регистр.УчетДоговоров.Разнорядка;
|Модель = Регистр.УчетДоговоров.Модель.Группа;
|Колво = Регистр.УчетДоговоров.Количество;
|Функция КолвоПриход = Приход(Колво);
|Функция КолвоРасход = Расход(Колво);
|Функция КолвоОст = КонОст(Колво);
|Группировка Разнорядка;
|Группировка Модель;
|"//}}ЗАПРОС
;

// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
	Возврат;
КонецЕсли;

НомерСтроки = 1;
Пока Запрос.Группировка("Разнорядка") = 1 Цикл
	Пока Запрос.Группировка("Модель") = 1 Цикл 
		Модель = Запрос.Модель;
		Разнорядка = Запрос.Разнорядка;
		КолПоДоговору = Запрос.КолвоПриход;
		КолОтгрузили = Запрос.КолвоРасход;
		КолОсталось = Запрос.КолвоОст;
		НомерСтроки = НомерСтроки + 1;
		//Организум заполнение ячеек Excel
		Для Ст = 1 По СписокСтолбцов.РазмерСписка() Цикл
			Ячейка = РабочаяКнига.Cells(НомерСтроки,Ст);
			Если Ст = 1 Тогда
				Ячейка.Value = Модель;
			ИначеЕсли Ст = 2 Тогда
				Ячейка.Value = Строка(Разнорядка);
			ИначеЕсли Ст = 3 Тогда
				Ячейка.Value = КолПоДоговору;
			ИначеЕсли Ст = 4 Тогда
				Ячейка.Value = КолОтгрузили;
			ИначеЕсли Ст = 5 Тогда
				Ячейка.Value = КолОсталось;
			КонецЕсли;
		КонецЦикла;	
	КонецЦикла;
КонецЦикла; 
СводнаяТаблица = РабочаяКнига.ActiveSheet.PivotTableWizard;
//Метод СводнаяТаблица.Name возвращает имя сводной таблицы
//Можно задать имя таблицы СводнаяТаблица.Name = "МояТаблица"
СводнаяТаблица.SmallGrid = 0;
//Разворачивает макет сводной таблицы 

//Обращение к ячейкам сводной таблицы возможно по номеру
//Например, СводнаяТаблица.PivotFields(1).Value 
//возвращает значение "Модель"

//Попробуем с другого конца
//1 - Row
//2 - Column
//3 - Page
//4 - Data
СводнаяТаблица.PivotFields(1).Orientation = 1;    //Модель 
СводнаяТаблица.PivotFields(2).Orientation = 3;    //Разнорядка
СводнаяТаблица.PivotFields(3).Orientation = 4;    //По договору
СводнаяТаблица.PivotFields(4).Orientation = 4;    //Отгрузили
СводнаяТаблица.PivotFields(5).Orientation = 4;    //Осталось

//Пройдемся по форме отчета
СводнаяТаблица.Format(1);

//Попробуем закрыть панель инструментов сводной таблицы
РабочаяКнига.CommandBars("PivotTable").Visible = 0;
РабочаяКнига.Visible = 1;

Категория: Работа с Microsoft Office и OpenOffice

Выгрузка метаданных конфигурации в Microsoft Word и Excel

Код 1C v 8.х

 
Перем ОбъектыКонфы;
Перем СтруктКонфы;

Процедура ВыгрузитьВWord()
	Попытка
		Word = Новый COMОбъект("Word.Application");
	Исключение 
		Сообщить("Не удалось открыть Word");
		Возврат;
	КонецПопытки;
	
	Word.Documents.Add();
	Документ = Word.ActiveDocument();

    // Перебор типов метаданных
	Для Каждого ТипОбъекта Из ОбъектыКонфы Цикл
		Состояние(ТипОбъекта.Значение);
		
		Если Метаданные[ТипОбъекта.Ключ].Количество() > 0 Тогда
			// Добавляем новый параграф
			Документ.Paragraphs.Add();
			Номер = Документ.Paragraphs.Count();
			Документ.Paragraphs(Номер-1).Range().I_nsertAfter(ТипОбъекта.Значение);
			Документ.Paragraphs(Номер).Range().Style="Заголовок 1";

			//Перебираем конктретные объекты
			Для каждого Объект Из Метаданные[ТипОбъекта.Ключ] Цикл
				// Добавляем новый параграф
				Документ.Paragraphs.Add();
				Номер = Документ.Paragraphs.Count();
				Документ.Paragraphs(Номер-1).Range().I_nsertAfter(Объект.Синоним);
				Документ.Paragraphs(Номер).Range().Style="Заголовок 2";
				
				// Перебираем параметры метаданных
				Для каждого Параметр Из СтруктКонфы Цикл
					Попытка
						Количество = Объект[Параметр.Ключ].Количество();
					Исключение
						Продолжить;
					КонецПопытки;
						
					Если Количество > 0 Тогда
						// Добавляем новый параграф
						Документ.Paragraphs.Add();
						Номер = Документ.Paragraphs.Count();
						Документ.Paragraphs(Номер-1).Range().I_nsertAfter(Параметр.Значение + " (" + Количество + ")");
						Документ.Paragraphs(Номер).Range().Style="Заголовок 3";
						
						// Добавляем новый параграф
						Документ.Paragraphs.Add();
						Номер=Документ.Paragraphs.Count();
						// Добавляем новую таблицу
						Документ.Tables.Add(Документ.Paragraphs(Номер).Range(),Количество+1,4);
						
						Счетчик = 1;
						// Заполняем шапку таблицы
						Таблица = Документ.Tables(Документ.Tables.Count());
						Таблица.Cell(Счетчик,1).Range().I_nsertAfter("Имя");
						Таблица.Cell(Счетчик,2).Range().I_nsertAfter("Синоним");
						Таблица.Cell(Счетчик,3).Range().I_nsertAfter("Тип");
						Таблица.Cell(Счетчик,4).Range().I_nsertAfter("Комментарий");
						// Устанавливаем жирный шрифт для шапки таблицы
						Документ.Range(Таблица.Cell(Счетчик,1).Range.Start,Таблица.Cell(Счетчик,4).Range.End).Font.Bold = Истина;
						
						Для каждого Значение Из Объект[Параметр.Ключ] Цикл
							Счетчик = Счетчик + 1;
							// Заполняем содержимое таблицы
							Попытка
								Таблица.Cell(Счетчик,1).Range().I_nsertAfter(Значение.Имя);
							Исключение
							КонецПопытки;
							Попытка
								Таблица.Cell(Счетчик,2).Range().I_nsertAfter(Значение.Синоним);
							Исключение
							КонецПопытки;
							Попытка
								СтрокаТипов = "";
								// Выводим все типы
								Для каждого Тип Из Значение.Тип.Типы() Цикл
									СтрокаТипов = СтрокаТипов + " " + Строка(Тип);
								КонецЦикла; 
								Таблица.Cell(Счетчик,3).Range().I_nsertAfter(СтрокаТипов);
							Исключение
							КонецПопытки;
							Попытка
								Таблица.Cell(Счетчик,4).Range().I_nsertAfter(Значение.Комментарий);
							Исключение
							КонецПопытки;
						КонецЦикла; 
					КонецЕсли; 
				КонецЦикла; 
			КонецЦикла;
		КонецЕсли;
	КонецЦикла;
	
	// Показываем документ
	Word.Visible = Истина;
	// Устанавливаем активность документа
	Word.Activate();
	Word = Неопределено;
КонецПроцедуры

Процедура ВыгрузитьВExcel()
	Попытка
		Excel = Новый COMОбъект("Excel.Application");
	Исключение 
		Сообщить("Не удалось открыть Excel");
		Возврат;
	КонецПопытки;

	// Добавляем новый лист
	Excel.Application.Workbooks.Add(1);
	Лист = Excel.ActiveSheet;
	// Задаем имя закладки
	Лист.Name = "Данные";
	
	НомерСтроки = 0;
	
	// Перебор типов метаданных
	Для Каждого ТипОбъекта Из ОбъектыКонфы Цикл
		Состояние(ТипОбъекта.Значение);
		
		Если Метаданные[ТипОбъекта.Ключ].Количество() > 0 Тогда
			// Добавляем новую строку
			НомерСтроки = НомерСтроки + 1;
			// Устанавливаем текст в ячейку
			Лист.Cells(НомерСтроки, 1).Value = ТипОбъекта.Значение;
			// Устанавливаем размер шрифта
			Лист.Cells(НомерСтроки, 1).Font.Size = 16;
			// Устанавливаем цвет
			Лист.Cells(НомерСтроки, 1).Font.ColorIndex = 3;

			//Перебираем конктретные объекты
			Для каждого Объект Из Метаданные[ТипОбъекта.Ключ] Цикл
				// Добавляем новую строку
				НомерСтроки = НомерСтроки + 1;
				// Устанавливаем текст в ячейку
				Лист.Cells(НомерСтроки, 1).Value = Объект.Синоним;
				// Устанавливаем отступ в 2 символа
				Лист.Cells(НомерСтроки, 1).I_nsertIndent(2);
				// Устанавливаем размер шрифта
				Лист.Cells(НомерСтроки, 1).Font.Size = 12;
				// Устанавливаем цвет
				Лист.Cells(НомерСтроки, 1).Font.ColorIndex = 5;
				
				// Перебираем параметры метаданных
				Для каждого Параметр Из СтруктКонфы Цикл
					Попытка
						Количество = Объект[Параметр.Ключ].Количество();
					Исключение
						Продолжить;
					КонецПопытки;
						
					Если Количество > 0 Тогда
						// Добавляем новую строку
						НомерСтроки = НомерСтроки + 1;
						Лист.Cells(НомерСтроки, 1).Value = Параметр.Значение + " (" + Количество + ")";
						Лист.Cells(НомерСтроки, 1).I_nsertIndent(4);
						// Устанавливаем жирный шрифт
						Лист.Cells(НомерСтроки, 1).Font.Bold = Истина;
						// Устанавливаем цвет
						Лист.Cells(НомерСтроки, 1).Font.ColorIndex = 16;
						
						// Добавляем новую таблицу
						НомерСтроки = НомерСтроки + 1;
						Лист.Cells(НомерСтроки, 1).Value = "Имя";
						Лист.Cells(НомерСтроки, 2).Value = "Синоним";
						Лист.Cells(НомерСтроки, 3).Value = "Тип";
						Лист.Cells(НомерСтроки, 4).Value = "Комментарий";
						
						Для Ном = 1 По 4 Цикл
							// Устанавливаем ширину колонки
							Лист.Cells(НомерСтроки, Ном).ColumnWidth = 20;
							Лист.Cells(НомерСтроки, Ном).Font.Bold = Истина;
							// Очищаем все границы
							Лист.Cells(НомерСтроки, Ном).Borders(5).LineStyle = -4142;
							// Устанавливаем левую границу
							Лист.Cells(НомерСтроки, Ном).Borders(7).LineStyle = 1;
							// Устанавливаем верхнюю границу
							Лист.Cells(НомерСтроки, Ном).Borders(8).LineStyle = 1;
							// Устанавливаем нижнюю границу
							Лист.Cells(НомерСтроки, Ном).Borders(9).LineStyle = 1;
							// Устанавливаем правую границу
							Лист.Cells(НомерСтроки, Ном).Borders(10).LineStyle = 1;
							// Устанавливаем цвет фона
							Лист.Cells(НомерСтроки, Ном).Interior.ColorIndex = 34;
						КонецЦикла; 

						Для каждого Значение Из Объект[Параметр.Ключ] Цикл
							НомерСтроки = НомерСтроки + 1;
							// Заполняем содержимое таблицы
							Попытка
								Лист.Cells(НомерСтроки, 1).Value = Значение.Имя;
							Исключение
							КонецПопытки;
							Попытка
								Лист.Cells(НомерСтроки, 2).Value = Значение.Синоним;
							Исключение
							КонецПопытки;
							Попытка
								СтрокаТипов = "";
								// Выводим все типы
								Для каждого Тип Из Значение.Тип.Типы() Цикл
									СтрокаТипов = СтрокаТипов + " " + Строка(Тип);
								КонецЦикла; 
								Лист.Cells(НомерСтроки, 3).Value = СтрокаТипов;
							Исключение
							КонецПопытки;
							Попытка
								Лист.Cells(НомерСтроки, 4).Value = Значение.Комментарий;
							Исключение
							КонецПопытки;
							
							Для Ном = 1 По 4 Цикл
								// Установка границ
								Лист.Cells(НомерСтроки, Ном).Borders(5).LineStyle = -4142;
								Лист.Cells(НомерСтроки, Ном).Borders(7).LineStyle = 1;
								Лист.Cells(НомерСтроки, Ном).Borders(8).LineStyle = 1;
								Лист.Cells(НомерСтроки, Ном).Borders(9).LineStyle = 1;
								Лист.Cells(НомерСтроки, Ном).Borders(10).LineStyle = 1;
								
								// Устанавливаем выравнивание по левому краю
								Лист.Cells(НомерСтроки, Ном).VerticalAlignment = -4160;
								// Устанавливаем перенос слов
								Лист.Cells(НомерСтроки, Ном).WrapText = Истина;
							КонецЦикла; 
						КонецЦикла; 
					КонецЕсли; 
				КонецЦикла; 
			КонецЦикла;
		КонецЕсли;
	КонецЦикла;
	
	// Показываем документ
	Excel.Visible = Истина;
	Excel = Неопределено;
КонецПроцедуры

Процедура Сформировать()	
	// Определяем все возможные объекты метаданных
	ОбъектыКонфы = Новый Структура();
	ОбъектыКонфы.Вставить("ОбщиеМодули",				"Общие модули");
	ОбъектыКонфы.Вставить("ОбщиеФормы",				"Общие формы");
	ОбъектыКонфы.Вставить("ОбщиеМакеты",				"Общие макеты");
	ОбъектыКонфы.Вставить("ОбщиеКартинки",			"Общие картинки");
	ОбъектыКонфы.Вставить("Роли",					"Роли");
	ОбъектыКонфы.Вставить("Интерфейсы",				"Интерфейсы");
	ОбъектыКонфы.Вставить("Стили",					"Стили");
	ОбъектыКонфы.Вставить("Языки",					"Языки");
	ОбъектыКонфы.Вставить("ПланыОбмена",				"Планы обмена");
	ОбъектыКонфы.Вставить("Константы",				"Константы");
	ОбъектыКонфы.Вставить("КритерииОтбора",			"Критерии отбора");
	ОбъектыКонфы.Вставить("Справочники",				"Справочники");
	ОбъектыКонфы.Вставить("Документы",				"Документы");
	ОбъектыКонфы.Вставить("ЖурналыДокументов",		"Журналы документов");
	ОбъектыКонфы.Вставить("Перечисления",			"Перечисления");
	ОбъектыКонфы.Вставить("Отчеты",					"Отчеты");
	ОбъектыКонфы.Вставить("Обработки",				"Обработки");
	ОбъектыКонфы.Вставить("ПланыВидовХарактеристик",	"Планы видов характеристик");
	ОбъектыКонфы.Вставить("ПланыСчетов",				"Планы счетов");
	ОбъектыКонфы.Вставить("ПланыВидовРасчета",		"Планы видов расчета");
	ОбъектыКонфы.Вставить("РегистрыСведений",		"Регистры сведений");
	ОбъектыКонфы.Вставить("РегистрыБухгалтерии",		"Регистры бухгалтерии");
	ОбъектыКонфы.Вставить("РегистрыРасчета",			"Регистры расчета");
	
	// Определяем все возможные параметры
	СтруктКонфы = Новый Структура();
	СтруктКонфы.Вставить("Измерения",			"Измерения");
	СтруктКонфы.Вставить("Ресурсы",			"Ресурсы");
	СтруктКонфы.Вставить("Реквизиты",			"Реквизиты");
	СтруктКонфы.Вставить("Формы",				"Формы");
	СтруктКонфы.Вставить("Макеты",				"Макеты");
	СтруктКонфы.Вставить("Графы",				"Графы");
	СтруктКонфы.Вставить("ТабличныеЧасти",		"Табличные части");
	СтруктКонфы.Вставить("Значения",			"Значения");
	
	ВыгрузитьВWord();  // из 1С в Microsoft Word
	ВыгрузитьВExcel(); // из 1C в Microsoft Excel
КонецПроцедуры

Код 1C v 7.x

 

Процедура Справочник()

	Ворд=СоздатьОбъект("Word.Application");

	Ворд.DisplayAlerts=0;

	

	Ворд.ActiveDocument.ActiveWindow.S_election.I_nsertRowsBelow(1);

	Ворд.ActiveDocument.ActiveWindow.S_election.MoveLeft(1,1);

	Ворд.ActiveDocument.ActiveWindow.S_election.TypeText("Код");

	Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

	Тип=?(Метаданные.Справочник(СокрЛП(Имя)).ТипКода="Текстовый","Строка","Число");

	Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Тип+" ("+СокрЛП(Метаданные.Справочник(СокрЛП(Имя)).ДлинаКода)+")");

	Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

	Ворд.ActiveDocument.ActiveWindow.S_election.TypeText("");

	

	Ворд.ActiveDocument.ActiveWindow.S_election.I_nsertRowsBelow(1);

	Ворд.ActiveDocument.ActiveWindow.S_election.MoveLeft(1,1);

	Ворд.ActiveDocument.ActiveWindow.S_election.TypeText("Наименование");

	Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

	Ворд.ActiveDocument.ActiveWindow.S_election.TypeText("Строка ("+СокрЛП(Метаданные.Справочник(СокрЛП(Имя)).ДлинаНаименования)+")");

	Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

	Ворд.ActiveDocument.ActiveWindow.S_election.TypeText("");

	

	Для Сч=1 По Метаданные.Справочник(СокрЛП(Имя)).Реквизит() Цикл

		Ворд.ActiveDocument.ActiveWindow.S_election.I_nsertRowsBelow(1);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveLeft(1,1);

		Реквизит=Метаданные.Справочник(СокрЛП(Имя)).Реквизит(Сч);

		Синоним=Реквизит.Синоним;

		Если ПустоеЗначение(Синоним)=0 Тогда

			Если нрег(СтрЗаменить(Синоним," ",""))<>нрег(Реквизит.Идентификатор) Тогда

				Синоним=" ("+Синоним+")";

			Иначе

				Синоним="";

			КонецЕсли;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Тип=Реквизит.Тип;

		Если Тип="Строка" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина)+")";

		ИначеЕсли Тип="Число" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина);

			Если ПустоеЗначение(Реквизит.Точность)=0 Тогда

				Тип=Тип+"."+СокрЛП(Реквизит.Точность);

			КонецЕсли;

			Тип=Тип+")";

		Иначе

			Тип=Тип+"."+Реквизит.Вид;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Тип);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Реквизит.Комментарий);

	КонецЦикла;

	Предупреждение("Готово",5);

КонецПроцедуры



Процедура Документ()

	Ворд=СоздатьОбъект("Word.Application");

	Ворд.DisplayAlerts=0;

	

	Для Сч=1 По Метаданные.Документ(СокрЛП(Имя)).РеквизитШапки() Цикл

		Ворд.ActiveDocument.ActiveWindow.S_election.I_nsertRowsBelow(1);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveLeft(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText("Шапка");

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Реквизит=Метаданные.Документ(СокрЛП(Имя)).РеквизитШапки(Сч);

		Синоним=Реквизит.Синоним;

		Если ПустоеЗначение(Синоним)=0 Тогда

			Если нрег(СтрЗаменить(Синоним," ",""))<>нрег(Реквизит.Идентификатор) Тогда

				Синоним=" ("+Синоним+")";

			Иначе

				Синоним="";

			КонецЕсли;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Тип=Реквизит.Тип;

		Если Тип="Строка" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина)+")";

		ИначеЕсли Тип="Число" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина);

			Если ПустоеЗначение(Реквизит.Точность)=0 Тогда

				Тип=Тип+"."+СокрЛП(Реквизит.Точность);

			КонецЕсли;

			Тип=Тип+")";

		Иначе

			Тип=Тип+"."+Реквизит.Вид;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Тип);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Реквизит.Комментарий);

	КонецЦикла;

	Для Сч=1 По Метаданные.Документ(СокрЛП(Имя)).РеквизитТабличнойЧасти() Цикл

		Ворд.ActiveDocument.ActiveWindow.S_election.I_nsertRowsBelow(1);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveLeft(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText("Таб. часть");

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Реквизит=Метаданные.Документ(СокрЛП(Имя)).РеквизитТабличнойЧасти(Сч);

		Синоним=Реквизит.Синоним;

		Если ПустоеЗначение(Синоним)=0 Тогда

			Если нрег(СтрЗаменить(Синоним," ",""))<>нрег(Реквизит.Идентификатор) Тогда

				Синоним=" ("+Синоним+")";

			Иначе

				Синоним="";

			КонецЕсли;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Тип=Реквизит.Тип;

		Если Тип="Строка" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина)+")";

		ИначеЕсли Тип="Число" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина);

			Если ПустоеЗначение(Реквизит.Точность)=0 Тогда

				Тип=Тип+"."+СокрЛП(Реквизит.Точность);

			КонецЕсли;

			Тип=Тип+")";

		Иначе

			Тип=Тип+"."+Реквизит.Вид;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Тип);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Реквизит.Комментарий);

	КонецЦикла;

	Предупреждение("Готово",5);

КонецПроцедуры



Процедура Общие()

	Ворд=СоздатьОбъект("Word.Application");

	Ворд.DisplayAlerts=0;

	

	Для Сч=1 По Метаданные.ОбщийРеквизитДокумента() Цикл

		Ворд.ActiveDocument.ActiveWindow.S_election.I_nsertRowsBelow(1);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveLeft(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText("Шапка");

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Реквизит=Метаданные.ОбщийРеквизитДокумента(Сч);

		Синоним=Реквизит.Синоним;

		Если ПустоеЗначение(Синоним)=0 Тогда

			Если нрег(СтрЗаменить(Синоним," ",""))<>нрег(Реквизит.Идентификатор) Тогда

				Синоним=" ("+Синоним+")";

			Иначе

				Синоним="";

			КонецЕсли;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Тип=Реквизит.Тип;

		Если Тип="Строка" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина)+")";

		ИначеЕсли Тип="Число" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина);

			Если ПустоеЗначение(Реквизит.Точность)=0 Тогда

				Тип=Тип+"."+СокрЛП(Реквизит.Точность);

			КонецЕсли;

			Тип=Тип+")";

		Иначе

			Тип=Тип+"."+Реквизит.Вид;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Тип);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Реквизит.Комментарий);

	КонецЦикла;

	Предупреждение("Готово",5);

КонецПроцедуры



Процедура СтруктураРегистра()

	Ворд=СоздатьОбъект("Word.Application");

	Ворд.DisplayAlerts=0;

	

	Для Сч=1 По Метаданные.Регистр(СокрЛП(Имя)).Измерение() Цикл

		Ворд.ActiveDocument.ActiveWindow.S_election.I_nsertRowsBelow(1);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveLeft(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText("Измерение");

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Реквизит=Метаданные.Регистр(СокрЛП(Имя)).Измерение(Сч);

		Синоним=Реквизит.Синоним;

		Если ПустоеЗначение(Синоним)=0 Тогда

			Если нрег(СтрЗаменить(Синоним," ",""))<>нрег(Реквизит.Идентификатор) Тогда

				Синоним=" ("+Синоним+")";

			Иначе

				Синоним="";

			КонецЕсли;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Тип=Реквизит.Тип;

		Если Тип="Строка" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина)+")";

		ИначеЕсли Тип="Число" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина);

			Если ПустоеЗначение(Реквизит.Точность)=0 Тогда

				Тип=Тип+"."+СокрЛП(Реквизит.Точность);

			КонецЕсли;

			Тип=Тип+")";

		Иначе

			Тип=Тип+"."+Реквизит.Вид;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Тип);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Реквизит.Комментарий);

	КонецЦикла;

	Для Сч=1 По Метаданные.Регистр(СокрЛП(Имя)).Ресурс() Цикл

		Ворд.ActiveDocument.ActiveWindow.S_election.I_nsertRowsBelow(1);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveLeft(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText("Ресурс");

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Реквизит=Метаданные.Регистр(СокрЛП(Имя)).Ресурс(Сч);

		Синоним=Реквизит.Синоним;

		Если ПустоеЗначение(Синоним)=0 Тогда

			Если нрег(СтрЗаменить(Синоним," ",""))<>нрег(Реквизит.Идентификатор) Тогда

				Синоним=" ("+Синоним+")";

			Иначе

				Синоним="";

			КонецЕсли;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Тип=Реквизит.Тип;

		Если Тип="Строка" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина)+")";

		ИначеЕсли Тип="Число" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина);

			Если ПустоеЗначение(Реквизит.Точность)=0 Тогда

				Тип=Тип+"."+СокрЛП(Реквизит.Точность);

			КонецЕсли;

			Тип=Тип+")";

		Иначе

			Тип=Тип+"."+Реквизит.Вид;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Тип);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Реквизит.Комментарий);

	КонецЦикла;

	Для Сч=1 По Метаданные.Регистр(СокрЛП(Имя)).Реквизит() Цикл

		Ворд.ActiveDocument.ActiveWindow.S_election.I_nsertRowsBelow(1);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveLeft(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText("Реквизит");

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Реквизит=Метаданные.Регистр(СокрЛП(Имя)).Реквизит(Сч);

		Синоним=Реквизит.Синоним;

		Если ПустоеЗначение(Синоним)=0 Тогда

			Если нрег(СтрЗаменить(Синоним," ",""))<>нрег(Реквизит.Идентификатор) Тогда

				Синоним=" ("+Синоним+")";

			Иначе

				Синоним="";

			КонецЕсли;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Тип=Реквизит.Тип;

		Если Тип="Строка" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина)+")";

		ИначеЕсли Тип="Число" Тогда

			Тип=Тип+" ("+СокрЛП(Реквизит.Длина);

			Если ПустоеЗначение(Реквизит.Точность)=0 Тогда

				Тип=Тип+"."+СокрЛП(Реквизит.Точность);

			КонецЕсли;

			Тип=Тип+")";

		Иначе

			Тип=Тип+"."+Реквизит.Вид;

		КонецЕсли;

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Тип);

		Ворд.ActiveDocument.ActiveWindow.S_election.MoveRight(1,1);

		Ворд.ActiveDocument.ActiveWindow.S_election.TypeText(Реквизит.Комментарий);

	КонецЦикла;

	Предупреждение("Готово",5);

КонецПроцедуры

Категория: Работа с Microsoft Office и OpenOffice