// "ПутьКФайлу" - строка. Полное имя файла в формате MSWord.

// "Ссылка" - ДокументСсылка (в моем случае - счет).

Процедура ВыполнитьОбработку() Экспорт



    Попытка

        Объект = ПолучитьCOMОбъект(ПутьКФайлу);

        // Покажем документ. Для красоты.

        Объект.Application.Visible = 1;

        Word = Объект.Application;



        Doc = Объект.Application.Documents(1);

        Doc.Activate();



        // Готовим переменную в которой будет содержимое нашего документа

        // (текст, таблицы и проч).

        Text = Word.S_election;



        // Очистим документ

        // Ctrl-A

        Text.WholeStory();

        // Del

        Text.Delete(1, 1);

        // Двигаемся на 3 строки ниже. Документ пустой, поэтому добавляем

        // строки "Переводами коретки"



        Text.TypeText(Символы.ВК);

        Text.TypeText(Символы.ВК);

        Text.TypeParagraph(); // другой вариант того же действия

        // Выводим текст.

        Text.TypeText("Обычный текст, набранный первую очередь");



        // Курсор в конце строки

        // Эмулируем нажатие Shift+Home - выделяем строку

        Text.HomeKey(, 1);

        // Форматирование выделенной строки

        Text.Font.Bold = 9999998;

        Text.Font.Size = 14;

        Text.Font.Name = "Verdana";



        // Сдвигаем курсор. Сдвинуть курсор по строкам возможно, только,

        // если эти строки уже содержат текст, иначе ничего не произойдет.

        Text.MoveUp(,2);   // вверх на 2 строки

        //Word.S_election.MoveDown(,числострок); // вниз

        //Word.S_election.MoveLeft(,числострок); // влево

        //Word.S_election.MoveRight(,числострок);// вправо



        // Добавление текста. Текст выводится начиная с текщей позиции

        // курсора.

        Text.HomeKey(, 1);

        Text.TypeText("Обычный текст, набранный во вторую очередь");



        Text.MoveDown(,1); // вниз на 2 строки

        Text.EndKey(); // в конец строки

        Text.TypeParagraph(); // и в начало следующей строки



        // Очищаем форматирование

        Text.ClearFormatting();

        // Добавляем таблицу.

        // Получаем текущую позицию курсора

        Position = Text.Range();



        // Параметры: Позиция, число строк, число колонок,

        // последние 2 параметра отвечают за автоподбор высоты и отображение

        // границ таблицы

        Table = Doc.Tables.Add(Position, 1, 6, 1, 2);



        // Устанавливаем ширину колонок

        Table.Columns(1).PreferredWidth=10;

        Table.Columns(2).PreferredWidth=50;

        Table.Columns(3).PreferredWidth=10;

        Table.Columns(4).PreferredWidth=10;

        Table.Columns(5).PreferredWidth=10;

        Table.Columns(6).PreferredWidth=10;



        // Задаем заголовки колонок

        Row1=Table.Rows(1);

        Row1.Cells(1).Range.Text="№ п/п";

        Row1.Cells(2).Range.Text="Наименование";

        Row1.Cells(4).Range.Text="Кол-во";

        Row1.Cells(3).Range.Text="Ед. изм.";

        Row1.Cells(5).Range.Text="Цена,руб.";

        Row1.Cells(6).Range.Text="Сумма,руб.";



        // Построчно выводим содержимое таблицы Товары

        НомерСтроки = 1;

        Для каждого СтрокаТовары Из Ссылка.Товары Цикл

            Row=Table.Rows.Add();

            Row.Cells(1).Range.Text=НомерСтроки;

            // Выравнивание по левому краю

            Row.Cells(1).Range.ParagraphFormat.Alignment = 1;

            // В качестве текста можно передать только значение "простого" формата

            // все агрегатные объекты, переданные как текст, что нормально для платформы 1с

            // вызовут исключение.

            Row.Cells(2).Range.Text=СтрокаТовары.Номенклатура.Наименование

                   +?(ЗначениеЗаполнено(СтрокаТовары.ХарактеристикаНоменклатуры),

                   " ("+СтрокаТовары.ХарактеристикаНоменклатуры+")","");

            Row.Cells(4).Range.Text=Строка(СтрокаТовары.Количество);

            Row.Cells(4).Range.ParagraphFormat.Alignment = 1;

            Row.Cells(3).Range.Text=?(ЗначениеЗаполнено(СтрокаТовары.Номенклатура.БазоваяЕдиницаИзмерения)

                                  ,СтрокаТовары.Номенклатура.БазоваяЕдиницаИзмерения.Наименование,"-");

            Row.Cells(3).Range.ParagraphFormat.Alignment = 1;

            Row.Cells(5).Range.Text=Формат(СтрокаТовары.Цена,"ЧДЦ=2");

            Row.Cells(5).Range.ParagraphFormat.Alignment = 1;

            Row.Cells(6).Range.Text=Формат(СтрокаТовары.Сумма,"ЧДЦ=2");

            Row.Cells(6).Range.ParagraphFormat.Alignment = 1;

            НомерСтроки=НомерСтроки+1;

        КонецЦикла;



        // Задаем форматирование первой строки

        // Если сделать это сразу, то все новые строки таблицы будут

        // формироваться с тем же форматом

        Row1.Range.Font.Bold = 9999998;

        Row1.Range.Font.Size = 14;

        Row1.Range.Font.Name = "Verdana";

        Row1.Range.ParagraphFormat.Alignment = 1;



        // Последняя строка...

        Row = Table.Rows.Add();

        Row.Range.Font.Bold = 9999998;

        Row.Cells(1).Range.Text="Итого:";

    Исключение

        Doc.Save();

        Сообщить(ОписаниеОшибки());

        Объект.Application.Quit();

        Объект = Неопределено;

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



    Попытка // эта конструкция выдает исключительную ситуацию, но при этом

        // результат все-равно работает))

        // объединяем ячейки в конце таблицы

        Table.cell(НомерСтроки+1, 1).Merge(Table.cell(НомерСтроки+1, 5));

    Исключение

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



    Попытка

        Row.Cells(1).Range.ParagraphFormat.Alignment = 3;

        Row.Cells(2).Range.Text=Формат(Ссылка.Товары.Итог("Сумма"), "ЧДЦ=2");

        Row.Cells(2).Range.ParagraphFormat.Alignment = 1;



        Doc.Save();

        Объект.Application.Quit();

        Объект = Неопределено;

    Исключение

        Doc.Save();

        Сообщить(ОписаниеОшибки());

        Объект.Application.Quit();

        Объект = Неопределено;

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

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

 Процедура ВыполнитьОбработку() Экспорт

    Попытка

        //Объект = ПолучитьCOMОбъект(ПутьКФайлу);
        Объект = ПолучитьCOMОбъект("C:\Users\NKrylov\Desktop\Тест.docx");
        // Покажем документ.
        Объект.Application.Visible = 1;
        Word = Объект.Application;

        ThisDocument = Word.Documents(1);
        ThisDocument.Activate();

        // Отключим проверку грамматики и вывод информации о грамматических ошибках.
        ThisDocument.GrammarChecked=0;
        ThisDocument.ShowGrammaticalErrors=0;

        // Готовим переменную в которой будет содержимое документа (текст).
        S_election = Word.S_election;

        // Очистим документ
        // Ctrl-A
        S_election.WholeStory();
        // Del
        S_election.Delete(1, 1);

        // Уменьшим междустрочный интервал.
        S_election.ParagraphFormat.LineSpacingRule = 0; // 1 по умолчанию
        S_election.ParagraphFormat.SpaceAfter = 0;      // 10 по умолчанию

        // Разметим документ. Это можно сделать и предварительно в макете
        ThisDocument.Bookmarks.Add("Закладка1", S_election.Range());
        S_election.TypeParagraph();
        S_election.TypeText("34r3 ");
        S_election.HomeKey(, 1);
        ThisDocument.Bookmarks.Add("Закладка2", S_election.Range());
        S_election.EndKey();
        S_election.TypeParagraph();
        ThisDocument.Bookmarks.Add("Закладка3", S_election.Range());
        S_election.TypeParagraph();
        ThisDocument.Bookmarks.Add("Закладка4", S_election.Range());
        S_election.EndKey();

        // Так можно работать с текстом только в конкреной области документа - это и будет замена метода Find-Execute.
        ThisDocument.Bookmarks("Закладка3").Range.S_elect();
        S_election = Word.S_election;

        Bookmark = ThisDocument.Bookmarks("Закладка3");
        Table = ThisDocument.Tables.Add(Bookmark.Range(),1,5,1,2);
        Table.Rows(1).Cells(1).Range.Text = 1;
        Table.Rows(1).Cells(2).Range.Text = 2;
        Table.Rows(1).Cells(3).Range.Text = 3;
        Table.Rows(1).Cells(4).Range.Text = 4;
        Table.Rows(1).Cells(5).Range.Text = 5;

        // После вывода таблицы, появится "лишняя строка", удалим ее
        // в результате курсор встанет в область закладки 4
        S_election.MoveDown(, 1);
        S_election.Delete(1, 1);

        // Этот текст будет выведен не с последней позиции курсора, а в активной области.
        // в данном случае - в области закладки 2
        ThisDocument.Bookmarks("Закладка2").Range.S_elect();
        S_election = Word.S_election;
        Text = S_election.Range.Text;
        S_election.TypeText(Text + " sdcsdcs");
        // При выводе текста закладка "сбросилась". Восстановим.
        // "Победить" эту проблему я так и не смог((
        // Хотя на практике, закладка больше и не понадобится.
        // Дважды выводить текст в одну и ту же область - не имеет смысла.
        S_election.HomeKey(, 1);
        ThisDocument.Bookmarks.Add("Закладка2", S_election.Range());
        S_election.EndKey();

        // В области закладки 4 сформируем нумерованный список
        ThisDocument.Bookmarks("Закладка4").Range.S_elect();
        S_election = Word.S_election; // активная (выделенная) область будет начинаться
        // от закладки 4)

        // Добавим текст "для опытов"
        // 1
        S_election.TypeText("sdcsdcsdcsdc");
        S_election.TypeParagraph();
        // 2
        S_election.TypeText("sdcsdcsdcsdc");
        S_election.TypeParagraph();
        // 3
        S_election.TypeText("sdcsdcsdcsdc");
        S_election.TypeParagraph();
        // 4
        S_election.TypeText("sdcsdcsdcsdc");
        S_election.TypeParagraph();
        // Выделяем введенный текст
        S_election.MoveUp(,4,1);

        // Настроим шаблон объекта галереи списков
        // Галереи списков бывают несккольких типов, 2 - нумерованные списки
        ListTemplate = Word.ListGalleries(2).ListTemplates(1).ListLevels(1);
        // Формат нумератора списка - точка после символа нумерации
        ListTemplate.NumberFormat = "%1.";
        // стиль нумератора - арабские цифры
        ListTemplate.NumberStyle = 0; // wdListNumberStyleArabic
        // 4 - маленькие латинские буквы.
        // 2 - маленькие римские цифры.
        // 58- меленькие русские буквы.
        // Font = Template.Font; // можно указать форматирование текста списка

        // Применим шаблон к выделенному тексту
 S_election.Range.ListFormat.ApplyListTemplateWithLevel( Word.ListGalleries(2).ListTemplates(1));

        // Перейдем в конец текста
        S_election.EndKey(6);

        // Добавим картинку
        // Параметры: путь к файлу, создавать ссылку на картинку, сохранять с файлом
        Picture = S_election.InlineShapes.AddPicture("C:\Users\NKrylov\Desktop\Новый.bmp", Ложь, Истина);
        // Зададим размер
        Picture.Height = 100;
        Picture.Width  = 150;

        // Чтобы установить обтекание текста, конвертируем рисунок в фигуру
        Shape = Picture.ConvertToShape();
        Shape.WrapFormat.Type = 0; // по контуру...

        ThisDocument.Save();
        //Объект.Application.Quit();
        Объект = Неопределено;
    Исключение
        ThisDocument.Save();
        Сообщить(ОписаниеОшибки());
        //Объект.Application.Quit();
        Объект = Неопределено;
    КонецПопытки;

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

 Процедура ВыполнитьОбработку() Экспорт



    Попытка

        Объект = ПолучитьCOMОбъект(ПутьКФайлу);

        // Покажем документ. Для красоты.

        Объект.Application.Visible = 1;

        Word = Объект.Application;



        Doc = Объект.Application.Documents(1);

        Doc.Activate();



        // Готовим переменную в которой будет содержимое нашего документа

        // (текст, таблицы и проч).

        Text = Word.S_election;



        // Очистим документ

        // Ctrl-A

        Text.WholeStory();

        // Del

        Text.Delete(1, 1);

        // Двигаемся на 3 строки ниже. Документ пустой, поэтому добавляем

        // строки "Переводами коретки"



        Text.TypeText(Символы.ВК);

        Text.TypeText(Символы.ВК);

        Text.TypeParagraph(); // другой вариант того же действия

        // Выводим текст.

        Text.TypeText("Обычный текст, набранный первую очередь");



        // Курсор в конце строки

        // Эмулируем нажатие Shift+Home - выделяем строку

        Text.HomeKey(, 1);

        // Форматирование выделенной строки

        Text.Font.Bold = 9999998;

        Text.Font.Size = 14;

        Text.Font.Name = "Verdana";



        // Сдвигаем курсор. Сдвинуть курсор по строкам возможно, только,

        // если эти строки уже содержат текст, иначе ничего не произойдет.

        Text.MoveUp(,2);   // вверх на 2 строки

        //Word.S_election.MoveDown(,числострок); // вниз

        //Word.S_election.MoveLeft(,числострок); // влево

        //Word.S_election.MoveRight(,числострок);// вправо



        // Добавление текста. Текст выводится начиная с текщей позиции

        // курсора.

        Text.HomeKey(, 1);

        Text.TypeText("Обычный текст, набранный во вторую очередь");



        Text.MoveDown(,1); // вниз на 2 строки

        Text.EndKey(); // в конец строки

        Text.TypeParagraph(); // и в начало следующей строки



        // Очищаем форматирование

        Text.ClearFormatting();

        // Добавляем таблицу.

        // Получаем текущую позицию курсора

        Position = Text.Range();



        // Параметры: Позиция, число строк, число колонок,

        // последние 2 параметра отвечают за автоподбор высоты и отображение

        // границ таблицы

        Table = Doc.Tables.Add(Position, 1, 6, 1, 2);



        // Устанавливаем ширину колонок

        Table.Columns(1).PreferredWidth=10;

        Table.Columns(2).PreferredWidth=50;

        Table.Columns(3).PreferredWidth=10;

        Table.Columns(4).PreferredWidth=10;

        Table.Columns(5).PreferredWidth=10;

        Table.Columns(6).PreferredWidth=10;



        // Задаем заголовки колонок

        Row1=Table.Rows(1);

        Row1.Cells(1).Range.Text="№ п/п";

        Row1.Cells(2).Range.Text="Наименование";

        Row1.Cells(4).Range.Text="Кол-во";

        Row1.Cells(3).Range.Text="Ед. изм.";

        Row1.Cells(5).Range.Text="Цена,руб.";

        Row1.Cells(6).Range.Text="Сумма,руб.";



        // Построчно выводим содержимое таблицы Товары

        НомерСтроки = 1;

        Для каждого СтрокаТовары Из Ссылка.Товары Цикл

            Row=Table.Rows.Add();

            Row.Cells(1).Range.Text=НомерСтроки;

            // Выравнивание по левому краю

            Row.Cells(1).Range.ParagraphFormat.Alignment = 1;

            // В качестве текста можно передать только значение "простого" формата

            // все агрегатные объекты, переданные как текст, что нормально для платформы 1с

            // вызовут исключение.

            Row.Cells(2).Range.Text=СтрокаТовары.Номенклатура.Наименование

                   +?(ЗначениеЗаполнено(СтрокаТовары.ХарактеристикаНоменклатуры),

                   " ("+СтрокаТовары.ХарактеристикаНоменклатуры+")","");

            Row.Cells(4).Range.Text=Строка(СтрокаТовары.Количество);

            Row.Cells(4).Range.ParagraphFormat.Alignment = 1;

            Row.Cells(3).Range.Text=?(ЗначениеЗаполнено(СтрокаТовары.Номенклатура.БазоваяЕдиницаИзмерения)

                                  ,СтрокаТовары.Номенклатура.БазоваяЕдиницаИзмерения.Наименование,"-");

            Row.Cells(3).Range.ParagraphFormat.Alignment = 1;

            Row.Cells(5).Range.Text=Формат(СтрокаТовары.Цена,"ЧДЦ=2");

            Row.Cells(5).Range.ParagraphFormat.Alignment = 1;

            Row.Cells(6).Range.Text=Формат(СтрокаТовары.Сумма,"ЧДЦ=2");

            Row.Cells(6).Range.ParagraphFormat.Alignment = 1;

            НомерСтроки=НомерСтроки+1;

        КонецЦикла;



        // Задаем форматирование первой строки

        // Если сделать это сразу, то все новые строки таблицы будут

        // формироваться с тем же форматом

        Row1.Range.Font.Bold = 9999998;

        Row1.Range.Font.Size = 14;

        Row1.Range.Font.Name = "Verdana";

        Row1.Range.ParagraphFormat.Alignment = 1;



        // Последняя строка...

        Row = Table.Rows.Add();

        Row.Range.Font.Bold = 9999998;

        Row.Cells(1).Range.Text="Итого:";

    Исключение

        Doc.Save();

        Сообщить(ОписаниеОшибки());

        Объект.Application.Quit();

        Объект = Неопределено;

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



    Попытка // эта конструкция выдает исключительную ситуацию, но при этом

        // результат все-равно работает))

        // объединяем ячейки в конце таблицы

        Table.cell(НомерСтроки+1, 1).Merge(Table.cell(НомерСтроки+1, 5));

    Исключение

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



    Попытка

        Row.Cells(1).Range.ParagraphFormat.Alignment = 3;

        Row.Cells(2).Range.Text=Формат(Ссылка.Товары.Итог("Сумма"), "ЧДЦ=2");

        Row.Cells(2).Range.ParagraphFormat.Alignment = 1;



        Doc.Save();

        Объект.Application.Quit();

        Объект = Неопределено;

    Исключение

        Doc.Save();

        Сообщить(ОписаниеОшибки());

        Объект.Application.Quit();

        Объект = Неопределено;

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



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

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

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

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