//инициализация часть 1
СсылкаМакет = ПолучитьМакет(Акт);
MSWord = СсылкаМакет.Получить();
Попытка
СсылкаМакет = MSWord.Application.Documents(1);
СсылкаМакет.Activate(); 
//выгружаем табличную часть с нарушениями в строку часть 2
str = Новый COMОбъект(ADODB.Stream);
str.Open();
СтрочкаТаблицы = ЭлементыФормы.Нарушения.ТекущиеДанные;
Для Каждого СтрочкаТаблицы Из Нарушения Цикл
str.WriteText( + СтрочкаТаблицы.Описание +  Нарушены требования СНИПФЗГОСТ:  + СтрочкаТаблицы.СНИПФЗГОСТ  +  Статья:  + СтрочкаТаблицы.ЧастьСтатья  + Символ(13),0);
КонецЦикла;
str.Position = 0;
НарушенияТекст = str.readText();

//вставляем в закладку текст с нарушениями часть 3
MSWord.Bookmarks(НарушенияТекст).S_elect();
MSWord.Application.S_election.TypeText(НарушенияТекст);

//открыть Word часть 4
СсылкаМакет.Application.Visible = Истина;

СсылкаМакет.Activate();
Исключение
//если ошибка 
Сообщить(ОписаниеОшибки());
MSWord.Application.Quit();
КонецПопытки;   

 Word = MSWord.Application;

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

//Переместиться вниз на 22 строк

Word.S_election.MoveDown(,22);

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

//подготовка таблицы:

Rng = Word.S_election.Range;

//Формируем заголовок:

Rng.I_nsertAfter(№ п/п*Установленные нарушения и меры по их устранению*Основания); 

Rng.I_nsertParagraphAfter();

//сама таблица

СтрочкаТаблицы = ЭлементыФормы.НарушенияПредписание.ТекущиеДанные;

Для Каждого СтрочкаТаблицы из НарушенияПредписание Цикл 

Rng.I_nsertAfter(Строка(СтрочкаТаблицы.НомерСтроки)+*+СтрочкаТаблицы.Описание + ;  + СтрочкаТаблицы.Предписание +* + СтрочкаТаблицы.СНИПФЗГОСТ +   + СтрочкаТаблицы.ЧастьСтатья);

Rng.I_nsertParagraphAfter(); 

КонецЦикла; 

Rng.ConvertToTable(*);

Документ.Tables(1).AutoFormat(17); //номер таблицы в шаблоне

Word.Visible = Истина;   

 Процедура ОсновныеДействияФормыWord(Кнопка)
   АктивныйДокумент = ПолучитьМакет("Макет");
   КомОбъект = АктивныйДокумент.Получить();
   
   КомОбъект.Application.Visible=1;
   КомОбъект.Variables.Item("ДатаПриказа").Value="24.01.2007";
   КомОбъект.Fields.UpDate();

   КомОбъект.PrintOut(); //распечатать документ

   //Ожидание окончания отправки на печать...
   Пока objWord.Application.BackgroundPrintingStatus<>0 Цикл
     Предупреждение("Ожидание",1);
   КонецЦикла;  

   КомОбъект.Application.Quit(); //закрыть Word
   КомОбъект = 0;
КонецПроцедуры
   

 Процедура ОсновныеДействияФормыWord(Кнопка)
   АктивныйДокумент = ПолучитьМакет("Макет");
   КомОбъект = АктивныйДокумент.Получить();
   КомОбъект.Application.Visible=1;
   КомОбъект.Bookmarks(СокрЛП("ИмяЗакл")).S_elect();
   КомОбъект.Application.S_election.TypeText(СокрЛП("тест проверка"));
КонецПроцедуры   

 // Параметры договора обозначены в тексте переменными вида "[%НомерДоговора%]"
Функция ПечатьДокумента() Экспорт
     
    Договор = ПолучитьМакет("ActiveDocument_ДоговорПоставки"); // получим макет-ActiveDocument 
    MSWord = Договор.Получить();  
    Попытка
	Doc = MSWord.Application.Documents(1);
        Doc.Activate();         
        Replace = Doc.Content.Find;    
        
        FindText = "{НомерДоговора}";     // что искать - имя_шаблона
        MatchCase = Ложь;                 // использовать регулярные выражения        
        MatchWholeWord = Истина;          // искать слово целиком
        MatchWildcards = Ложь;            // испоьзовать регулярные выражения 
        MatchSoundsLike = Неопределено;   // искать созвучные 
        MatchAllWordForms = Неопределено; // искать все формы слова
        Forward = Истина;                 // искать вперед
        Wrap = Неопределено;              // что должен вернуть Find-объект 
        Format_ = Ложь;                   // использовать форматирование
        ReplaceWith = "N777";             // текст, на который надо заменить имя_шаблона
        
        // кратко:        
        //Replace.Execute(FindText,Ложь,Истина,Ложь,,,Истина,,Ложь,НомерДоговора);        
        
        Replace.Execute(
            FindText, 
            MatchCase, 
            MatchWholeWord, 
            MatchWildcards, 
            MatchSoundsLike, 
            MatchAllWordForms, 
            Forward,
            Wrap,
            Format_,
            НомерДоговора);
            
        MSWord.Application.Visible = Истина;
        MSWord.Activate();
    Исключение
        Сообщить(ОписаниеОшибки());
        MSWord.Application.Quit();    
    КонецПопытки;    
 
    возврат 0;

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

 

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

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



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