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

 
      

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

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

      

    Процедура ВыгрузитьВWord()
      

    	Попытка
      

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

    	Исключение 
      

    		Сообщить("Не удалось открыть Word");
      

    		Возврат;
      

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

      

    	Word.Documents.Add();
      

    	Документ = Word.ActiveDocument();
      

      

     // Перебор типов метаданных
      

    	Для Каждого ТипОбъекта Из ОбъектыКонфы Цикл
      

    		Состояние(ТипОбъекта.Значение);
      

      

    		Если Метаданные[ТипОбъекта.Ключ].Количество() > 0 Тогда
      

    			// Добавляем новый параграф
      

    			Документ.Paragraphs.Add();
      

    			Номер = Документ.Paragraphs.Count();
      

    			Документ.Paragraphs(Номер-1).Range().I_nsertAfter(ТипОбъекта.Значение);
      

    			Документ.Paragraphs(Номер).Range().St yle="Заголовок 1";
      

      

    			//Перебираем конктретные объекты
      

    			Для каждого Объект Из Метаданные[ТипОбъекта.Ключ] Цикл
      

    				// Добавляем новый параграф
      

    				Документ.Paragraphs.Add();
      

    				Номер = Документ.Paragraphs.Count();
      

    				Документ.Paragraphs(Номер-1).Range().I_nsertAfter(Объект.Синоним);
      

    				Документ.Paragraphs(Номер).Range().St yle="Заголовок 2";
      

      

    				// Перебираем параметры метаданных
      

    				Для каждого Параметр Из СтруктКонфы Цикл
      

    					Попытка
      

    						Количество = Объект[Параметр.Ключ].Количество();
      

    					Исключение
      

    						Продолжить;
      

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

      

    					Если Количество > 0 Тогда
      

    						// Добавляем новый параграф
      

    						Документ.Paragraphs.Add();
      

    						Номер = Документ.Paragraphs.Count();
      

    						Документ.Paragraphs(Номер-1).Range().I_nsertAfter(Параметр.Значение + " (" + Количество + ")");
      

    						Документ.Paragraphs(Номер).Range().St yle="Заголовок 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);
      

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