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

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

// Читает табличный документ из файла MXL и преобразует его в таблицу значений.
//
// Параметры:
//	ИмяФайла - <Строка> - Путь к файлу MXL;
//	СтруктураКолонок - <Структура>, <ТаблицаЗначений> - Структура колонок. Если этот параметр
//		не задан, то структура колонок формируется из самого табличного документа;
//	ЕстьЗаголовок - <Булево> - Есть ли первая строка с заголовками или нет.
//	
// Возвращаемое значение:
//	<ТаблицаЗначений> - Полученная таблица значений.
//
Функция ПрочитатьТЗИзMXL(ИмяФайла, СтруктураКолонок = Неопределено, ЕстьЗаголовок = Истина) Экспорт
 
	ТабДок = Новый ТабличныйДокумент;
	ТабДок.Прочитать(ИмяФайла);
 
	Если СтруктураКолонок = Неопределено И ЕстьЗаголовок Тогда
		СтруктураКолонок = Новый Структура;
		Для ИндексКолонки = 1 По ТабДок.ШиринаТаблицы Цикл
			Обл1 = ТабДок.Область(1, ИндексКолонки);
			Обл2 = ТабДок.Область(2, ИндексКолонки);
			ИмяКолонки = СокрЛП(Обл1.Текст);
			ИмяКолонки = ?(Найти(ИмяКолонки, " ") > 0, СтрЗаменить(ТРег(ИмяКолонки), " ", ""), ИмяКолонки);
			СтруктураКолонок.Вставить(ИмяКолонки, ?(Обл2.СодержитЗначение, Обл2.ТипЗначения, Новый ОписаниеТипов));
		КонецЦикла;
	ИначеЕсли СтруктураКолонок = Неопределено И НЕ ЕстьЗаголовок Тогда
		СтруктураКолонок = Новый Структура;
		Для ИндексКолонки = 1 По ТабДок.ШиринаТаблицы Цикл
			Обл2 = ТабДок.Область(1, ИндексКолонки);
			ИмяКолонки = "К" + Формат(ИндексКолонки, "ЧДЦ=0; ЧН=0; ЧГ=0");
			СтруктураКолонок.Вставить(ИмяКолонки, ?(Обл2.СодержитЗначение, Обл2.ТипЗначения, Новый ОписаниеТипов));
		КонецЦикла;
	КонецЕсли;
 
    Таблица = ПреобразоватьТДвТЗ(ТабДок, СтруктураКолонок, ?(ЕстьЗаголовок, 2, 1), 1);
 
	Возврат Таблица;
КонецФункции;

// Сохраняет таблицу значений в файле в виде табличного документа.
//
// Параметры:
//	ИмяФайла - <Строка> - Путь к файлу MXL;
//	ТабЗначений - <ТаблицаЗначений> - Сохраняемая таблица значений;
//	ЕстьЗаголовок - <Булево> - Есть ли первая строка с заголовками или нет.
//
Процедура ЗаписатьТЗВMXL(ИмяФайла, ТабЗначений, ЕстьЗаголовок = Истина) Экспорт
 
	ТабДок = ПреобразоватьТЗвТД(ТабЗначений, Неопределено, 1, 1, ЕстьЗаголовок);
	ТабДок.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.MXL);
 
КонецПроцедуры;   

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

// Заполнить ячейки в строке  значениями 
//
Функция ЗаписьТЗ2ТабДок(записьТЗ,НомерСтроки,ТабличныйДокумент)
    НомерКолонки = 1;
    Символ160 = Символ(160);    
    // цикл по колонкам таблицы
    // РезультатЗапроса.Колонки.Количество()    // - количество колонок
    Для каждого полеТЗ из ЗаписьТЗ цикл 
        // значения ячейки в Excel
        типПоляТЗ = ТипЗнч(полеТЗ);
        если типПоляТЗ = Тип("Число") тогда             
            полеТЗ=Строка(полеТЗ); 
            полеТЗ=СтрЗаменить(полеТЗ,Символ160,"");
            полеТЗ=СтрЗаменить(полеТЗ,",",".");
        иначеесли типПоляТЗ = Тип("Строка") тогда      
        иначе        
            полеТЗ = строка(полеТЗ);
        КонецЕсли;    
        имяОбласти = "R" + номерСтроки + "C" + НомерКолонки;
        имяОбласти = СтрЗаменить(имяОбласти,Символ(160),"");         
        Ячейка = ТабличныйДокумент.Область(имяОбласти);
        Ячейка.Текст = полеТЗ;
        НомерКолонки = НомерКолонки + 1;
    КонецЦикла;            
КонецФункции

// Заполнить наименованиями колонок таблицу
Функция НаимКолонок2Mxl(ТаблицаЗначений,ТабличныйДокумент)
    // массКолонки = новый массив();
    номерСтроки=1;
    номКолонки=1; 
    ТабличныйДокумент = новый ТабличныйДокумент;
    // цикл по коллекции колонок
    Для НомКол=0 по ТаблицаЗначений.Колонки.Количество() - 1 Цикл
        //Сообщить(Колонка.Имя + "(" + Колонка.ТипЗначения + ")" );            
        имяКолонки=ТаблицаЗначений.Колонки[НомКол].Имя;
        //ТабличныйДокумент.Область(
        имяОбласти = "R" + номерСтроки + "C" + номКолонки;
        имяОбласти = СтрЗаменить(имяОбласти,Символ(160),"");         
        Ячейка = ТабличныйДокумент.Область(имяОбласти);
        //значениеЯчейки = СтрЗаменить(имяОбласти,Символ(160),"");         
        Ячейка.Текст = имяКолонки;
        // на основе текущего шрифта сделаем Жирный
        ЖирныйШрифт = ?(ЖирныйШрифт = Неопределено,Новый Шрифт(Ячейка.Шрифт,,,Истина),ЖирныйШрифт);         
        Ячейка.Шрифт = ЖирныйШрифт;
        номКолонки = номКолонки + 1;        
    КонецЦикла;
КонецФункции


// Заполнить построчно табличный документ
Функция Таблица2Mxl(ТаблицаЗначений,ТабличныйДокумент)
    //Выборка = РезультатЗапроса.Выбрать();
    НомСтр=1; // заполняем данными начиная со 2-й строки    
    // цикл по строкам таблицы
    Для каждого записьТЗ из ТаблицаЗначений Цикл
        НомСтр = НомСтр + 1;
        // цикл по колонкам таблицы        
        ЗаписьТЗ2ТабДок(записьТЗ,НомСтр,ТабличныйДокумент);         
    КонецЦикла;    
КонецФункции

// Таблица значений в табличный документ
Функция ТаблицаЗначений2Mxl(ТаблицаЗначений,ФайлMxl)
    ТабличныйДокумент = новый ТабличныйДокумент;
    // вывести колонки
    НаимКолонок2Mxl(ТаблицаЗначений,ТабличныйДокумент);
    // вывести содержимое таблицы    
    Таблица2Mxl(ТаблицаЗначений,ТабличныйДокумент);
    ТабличныйДокумент.Записать(ФайлMxl,ТипФайлаТабличногоДокумента.MXL);
    ТабличныйДокумент.Показать(ФайлMxl,ФайлMxl);
    Возврат 0;
КонецФункции


Функция    Тест_ВыгрузитьТЗвMxl();
    файл_мТЗИсходныеДанные = "мТЗИсходныеДанные.dat";        
    ТЗ = ЗагрузитьТЗизФайла(файл_мТЗИсходныеДанные);    
    ФайлMxl = КаталогВременныхФайлов() + СтрЗаменить(файл_мТЗИсходныеДанные,".dat",".mxl");  
    ТаблицаЗначений2Mxl(ТЗ,ФайлMxl);
КонецФункции

Тест_ВыгрузитьТЗвMxl();   

 КомандаСистемы("taskkill /F /IM word.exe");
КомандаСистемы("taskkill /F /IM excel.exe");   

 ' Установить соединение с сервером 1С
Set v81 = CreateObject("V81.Application")
res = v81.Connect("Srvr=Server1C;Ref = db1C;Usr=User1C;Pwd=Password1C")
' Передать управление внешней обработке по генерации Отчета Анализ Заказов
res = v81.ExternalDataProcessors.Create("C:\1C\Service\rep_email.epf").ThisObject.Report()
v81.Exit(false)

' Дать возможность 1С закрыть все открытые файлы и выгрузиться из памяти
WScript.Sleep(5000)

' Вызвать VBS скрипт отправки почты по E-Mail
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\1C\ Service\emailer.vbs"    

 'Отправить сообщение с помощью локальной службы SMTP
Const cdoSendUsingPickup = 1
'Отправить сообщение с помощью сети (SMTP через сеть)
Const cdoSendUsingPort = 2
Const cdoAnonymous = 0
Const cdoBasic = 1
Const cdoNTLM = 2

Set objMessage = CreateObject("CDO.Message")
' Тема сообщения и адрес отправителя
objMessage.Subject = "Ежедневный отчет Анализ заказов поставщикам"
objMessage.From = """Генератор отчетов"" "
' Получатели письма указываются через " ; "
objMessage.To = "email@domain.org; recv@domain.net; last@domain.ru"
' Содержимое тела письма.
objMessage.TextBody = "JSC AUTO SERVICE. Please find Orders reporting in attachment." & vbCRLF & _
"------------------------------------------" & vbCRLF & _
"Best regards, Auto report service" & vbCRLF & _
"Support line: it@domian.ru" & vbCRLF

' Добавляем файл - вложение для отправки отчета по EMail
objMessage.AddAttachment "C:\1C\Service\ЗаказыПоставщику.xls"

' Секция настроек SMTP сервера для отправки почты.
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Имя или IP адрес SMTP Server
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.domain.ru"

' Тип используемой авторизации, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

' Авторизация на SMTP server
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "report@domain.ru"
' Пароль SMTP server
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "youpassword"

' Порт SMTP Server port (обычно 25, но может быть и другим)
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Использование SSL для соединения (False или True)
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
' Время ожидания соединения с почтовым сервером
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
' Сохранить настройки CDO для отправки сообщения
objMessage.Configuration.Fields.Update

' Отправить созданное почтовое сообщение с вложением отчета в формате XLS по указанному адресу
objMessage.Send    

 Процедура ReportNow() Экспорт
 // Вызывается из vbscript, выполняет работы с отчетом.
 ОткрытьОтчетПоИмени("АнализЗаказовПоставщикам");
КонецПроцедуры   

 Процедура ОткрытьОтчетПоИмени(НазваниеОтчета) Экспорт

// получаем отчет и открываем форму
// для построения отчета по названию отчета
Отчет = Отчеты[НазваниеОтчета].Создать();
Форма = Отчет.ПолучитьФорму(, , );
Форма.Открыть();

// Выполнить настройку отчета по умолчанию
Отчет.УстановитьНачальныеНастройки();

// Добавить требуемый отбор по поставщику
ТекОтбор = Отчет.УниверсальныйОтчет.ПостроительОтчета.Отбор.ДоговорКонтрагентаВладелец;
ТекОтбор.Использование = Истина;
ТекОтбор.Значение = Справочники.Контрагенты.НайтиПоНаименованию("Поставщик");
ТекОтбор.ВидСравнения = ВидСравнения.Равно;

// Добавляем специфичное для нас измерение в отборе - например, "осталось отгрузить"
// в данном случае из отчета уйдут позиции, по которым все получено.
Отчет.УниверсальныйОтчет.ПостроительОтчета.Отбор.Добавить("ОсталосьОтгрузитьЕдиницОтчетов");
ТекОтбор1 = ОтчетОстатки.УниверсальныйОтчет.ПостроительОтчета.Отбор.ОсталосьОтгрузитьЕдиницОтчетов;
ТекОтбор1.Использование = Истина;
ТекОтбор1.Значение = 0;
ТекОтбор1.ВидСравнения = ВидСравнения.Больше;

// Состав отдельных ключевых показателей
// для каждого отчета можно посмотреть в конфигураторе
Отчет.СостояниеОтгрузкиПоЗаказу = истина;
Отчет.НеОтгружено = Истина;
Отчет.ОтгруженоЧастично = Истина;

// После завершения настроек нажмем программно кнопку "Сформировать"
Отчет.СформироватьОтчет(ФормаОтчета.ЭлементыФормы.ПолеТабличногоДокументаРезультат);

// Сформировать путь и имя файла для сохранения отчета
мПутьШаблон="C:\1C\Service";
мФайлШаблон="ЗаказыПоставщику.xls";
ИмяФайла = мПутьШаблон + "\" + мФайлШаблон;

// Полученные в отчете цифры и данные сохраним в файл Excel
Если Не ИмяФайла = Неопределено Тогда
Форма.ЭлементыФормы.ПолеТабличногоДокументаРезультат.СохранятьСвойстваОтображения = Истина;
Форма.ЭлементыФормы.ПолеТабличногоДокументаРезультат.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLS97);
КонецЕсли;

// Закрыть форму отчета после завершения работы
ФормаОтчета.Закрыть();
КонецПроцедуры    

 Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
Отказ = истина;
ОткрытьОтчетПоИмени("АнализЗаказовПоставщикам");
КонецПроцедуры   

 
Процедура ДобавитьКоммент(Элемент)
 форм=обработки.HTML.ПолучитьФорму("Форма");
 текст = форм.ОткрытьМодально();
 если не Пустаястрока(текст) тогда
  комментарий="Добавил: "+глтекущийпользователь+" , Добавлено: "+текущаядата()+текст+комментарий;
 ЭлементыФормы.ПолеHTMLДокумента.УстановитьТекст(комментарий);
 конецесли; 
КонецПроцедуры
   

 
Процедура ВставитьПланГрафик(Кнопка)
 форм=обработки.HTML.ПолучитьФорму("ФормаПросмотра");
 форм.текст=ПланГрафик;
 текст=форм.ОткрытьМодально();
 ПланГрафик=текст+ПланГрафик;
КонецПроцедуры
   

 
Процедура ИсторияИзмененийПросмотр(Кнопка)
 форм=обработки.HTML.ПолучитьФорму("Просмотр");
 форм.текст=ИсторияИзменений;
 форм.ОткрытьМодально();
КонецПроцедуры
   

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

Процедура ВыгрузитьВ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
КонецПроцедуры    

 
Процедура Справочник()
	Ворд=СоздатьОбъект("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);
КонецПроцедуры