&НаСервере
Функция КопированиеВсехНастроек(ПользовательСсылка,ПользовательПриемник)
	
	Пользователь = Обработки.НастройкиПользователей.ИмяПользователяИБ(ПользовательСсылка);
	
	Приемники = Новый Массив;
	ТаблицаПользователей = Новый ТаблицаЗначений;
	ТаблицаПользователей.Колонки.Добавить("Пользователь");
	ТаблицаПользователей = Обработки.НастройкиПользователей.ПользователиДляКопирования(ПользовательСсылка, ТаблицаПользователей, 
	ТипЗнч(ПользовательСсылка) = Тип("СправочникСсылка.ВнешниеПользователи"));
	
	Для Каждого СтрокаТаблицы Из ТаблицаПользователей Цикл
		Приемники.Добавить(ПользовательПриемник);
	КонецЦикла;
	
	КопируемыеНастройки = Новый Массив;
	КопируемыеНастройки.Добавить("НастройкиОтчетов");
	КопируемыеНастройки.Добавить("НастройкиВнешнегоВида");
	КопируемыеНастройки.Добавить("ПерсональныеНастройки");
	КопируемыеНастройки.Добавить("Избранное");
	КопируемыеНастройки.Добавить("НастройкиПечати");
	КопируемыеНастройки.Добавить("ПрочиеПользовательскиеНастройки");
	
	НастройкиСкопированы = Обработки.НастройкиПользователей.
	КопированиеНастроекПользователей(ПользовательСсылка, Приемники, КопируемыеНастройки);
		
	Возврат НастройкиСкопированы;
	
КонецФункции


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


Процедура ОбновитьДанныеПользователяИБ(ПользовательНастроек, Знач ОтображатьИмя = Истина)
	
	Если ПользовательНастроек = Неопределено Тогда
		Возврат;
	КонецЕсли;
	
	ПроверкаНаСуществующегоПользователя = ПользователиИнформационнойБазы.НайтиПоИмени(Объект.ФИОСоздаваемогоПользователя);
	Если ПроверкаНаСуществующегоПользователя = Неопределено Тогда
		
	Пользователь_Шаблон = ПользователиИнформационнойБазы.НайтиПоИмени(сокрлп(ПользовательНастроек.Наименование));


	ОписаниеПользователяИБ            = Пользователи.НовоеОписаниеПользователяИБ();
	ПользовательИБСуществует          = Ложь;
	ДоступКИнформационнойБазеРазрешен = Ложь;
	
	// Заполнение начальных значений свойств пользователяИБ.
	Если ОбщегоНазначенияПовтИсп.РазделениеВключено() Тогда
		ОписаниеПользователяИБ.ПоказыватьВСпискеВыбора = Ложь;
	Иначе
		ОписаниеПользователяИБ.ПоказыватьВСпискеВыбора =
			НЕ Константы.ИспользоватьВнешнихПользователей.Получить();
	КонецЕсли;
	ОписаниеПользователяИБ.АутентификацияСтандартная = Истина;
	ОписаниеПользователяИБ.Роли = Новый Массив;
	ПрочитанныеСвойства               = Неопределено;
	Если Пользователи.ПрочитатьПользователяИБ(
		         ПользовательНастроек.ИдентификаторПользователяИБ,ПрочитанныеСвойства
		         ) Тогда
			
			// Установка связи пользователем ИБ.
			//ДоступКИнформационнойБазеРазрешен = Истина;
			
			// Копирование свойств и ролей пользователяИБ.
			ЗаполнитьЗначенияСвойств(
				ОписаниеПользователяИБ,
				ПрочитанныеСвойства,
				"АутентификацияOpenID,
				|АутентификацияСтандартная,
				|ЗапрещеноИзменятьПароль,
				|ПоказыватьВСпискеВыбора,
				|АутентификацияОС,
				|РежимЗапуска,
				|Язык,
				|Роли");
	КонецЕсли;
	
	ОписаниеПользователяИБ.Вставить("Действие", "Записать");
	ОписаниеПользователяИБ.Вставить("Имя", Объект.ФИОСоздаваемогоПользователя);
	


		НовыйПользователь = Справочники.Пользователи.СоздатьЭлемент();
		НовыйПользователь.Наименование 					= Объект.ФИОСоздаваемогоПользователя;
		НовыйПользователь.ТекущееПодразделение			= ПользовательНастроек.ТекущееПодразделение;
		НовыйПользователь.CRM_УровеньДоступа			= СоздатьНовыйУровеньДоступа(Объект.ФИОСоздаваемогоПользователя);
		НовыйПользователь.Недействителен				= ложь;


		НовыйПользователь.ДополнительныеСвойства.Вставить(
			"ОписаниеПользователяИБ", ОписаниеПользователяИБ);
			
		НовыйПользователь.Записать();
				
		Запрос = Новый Запрос;
		Запрос.Текст = 
		"ВЫБРАТЬ
		|	ГруппыПользователейПользователиГруппы.Ссылка
		|ИЗ
		|	Справочник.ГруппыПользователей.Состав КАК ГруппыПользователейПользователиГруппы
		|ГДЕ
		|	ГруппыПользователейПользователиГруппы.Пользователь =Пользователь
		|
		|СГРУППИРОВАТЬ ПО
		|	ГруппыПользователейПользователиГруппы.Ссылка";
		
		Запрос.УстановитьПараметр("Пользователь", ПользовательНастроек);
		
		РезультатЗапроса = Запрос.Выполнить();
		
		ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
		
		Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
			объ = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();
			НоваяСтрока = объ.Состав.Добавить();
			НоваяСтрока.Пользователь = НовыйПользователь.Ссылка;
			объ.Записать();
		КонецЦикла;
		
		Запрос.Текст = 
		"ВЫБРАТЬ
		|	ГруппыДоступаПользователи.Ссылка
		|ИЗ
		|	Справочник.ГруппыДоступа.Пользователи КАК ГруппыДоступаПользователи
		|ГДЕ
		|	ГруппыДоступаПользователи.Пользователь =Пользователь
		|
		|СГРУППИРОВАТЬ ПО
		|	ГруппыДоступаПользователи.Ссылка";
		
		Запрос.УстановитьПараметр("Пользователь", ПользовательНастроек);
		
		РезультатЗапроса = Запрос.Выполнить();
		
		ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
		
		Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
			объ = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();
			НоваяСтрока = объ.Пользователи.Добавить();
			НоваяСтрока.Пользователь = НовыйПользователь.Ссылка;
			объ.Записать();
		КонецЦикла;


		КопированиеВсехНастроек(ПользовательНастроек,НовыйПользователь.Ссылка);
		
	Иначе
		сообщить("Указанное ФИО Пользователя уже используется !!! ");
	КонецЕсли;
		
КонецПроцедуры


&НаКлиенте
Процедура СоздатьПользователя(Команда)
	СоздатьПользователяНаСервере();
КонецПроцедуры


&НаСервере
Процедура СоздатьПользователяНаСервере()
	
	Если НЕ ЗначениеЗаполнено(Объект.ШаблонПользователяДляСозданияНового) Тогда
		Возврат;
	КонецЕсли;


	// настройки устанавливаются на форму
	ОбновитьДанныеПользователяИБ(Объект.ШаблонПользователяДляСозданияНового, Ложь);
	
КонецПроцедуры


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


	//Копируем настройки БСП
	КопированиеВсехНастроек(ШаблонПользователяДляКопирования,ИзменяемыйПользователь);  
КонецПроцедуры


&НаКлиенте
Процедура СкопироватьНастройки(Команда)
	СкопироватьНастройкиНаСервере(Объект.ИзменяемыйПользователь, Объект.ШаблонПользователяДляКопирования);
КонецПроцедуры   

 Процедура КнопкаВыполнитьНажатие(Кнопка)

	Если НЕ ЗначениеЗаполнено(ШаблонПользователяДляСозданияНового) Тогда
		Возврат;
	КонецЕсли;

	// настройки устанавливаются на форму
	ОбновитьДанныеПользователяИБ(ШаблонПользователяДляСозданияНового, Ложь);
	
КонецПроцедуры

Процедура ОбновитьДанныеПользователяИБ(ПользовательНастроек, Знач ОтображатьИмя = Истина)
	
	Если ПользовательНастроек = Неопределено Тогда
		Возврат;
	КонецЕсли;
	
	ПроверкаНаСуществующегоПользователя = ПользователиИнформационнойБазы.НайтиПоИмени(ФИОСоздаваемогоПользователя);
	Если ПроверкаНаСуществующегоПользователя = Неопределено Тогда
		
		Пользователь_Шаблон = ПользователиИнформационнойБазы.НайтиПоИмени(сокрлп(ПользовательНастроек.Код));
		
		ПользовательИБ = ПользователиИнформационнойБазы.СоздатьПользователя();
		ПользовательИБ.Имя = ФИОСоздаваемогоПользователя;
		ПользовательИБ.АутентификацияСтандартная = Истина;
		ПользовательИБ.Пароль = ПарольСоздаваемогоПользователя;
		ПользовательИБ.ПолноеИмя =  ФИОСоздаваемогоПользователя;
		ПользовательИБ.ПоказыватьВСпискеВыбора = Истина;
		ПользовательИБ.ОсновнойИнтерфейс = Пользователь_Шаблон.ОсновнойИнтерфейс;
		ПользовательИБ.Язык = Пользователь_Шаблон.Язык;
		
		
		СписокДоступныхРолейПользователяИБ = Новый СписокЗначений;
		
		Для Каждого мРоль Из Метаданные.Роли Цикл
			СтрокаСписокаДоступныхРолей = СписокДоступныхРолейПользователяИБ.Добавить();
			СтрокаСписокаДоступныхРолей.Представление = мРоль.Представление();
			СтрокаСписокаДоступныхРолей.Значение = мРоль;
		КонецЦикла; 
		
		Для Каждого СтрокаСпискаДоступныхРолей Из СписокДоступныхРолейПользователяИБ Цикл
			Если Пользователь_Шаблон.Роли.Содержит(СтрокаСпискаДоступныхРолей.Значение) Тогда
				ПользовательИБ.Роли.Добавить(СтрокаСпискаДоступныхРолей.Значение);		
			КонецЕсли;	
		КонецЦикла; 
		
		ПользовательИБ.Записать();
		
		НовыйПользователь = Справочники.Пользователи.СоздатьЭлемент();
		//НовыйПользователь.ИдентификаторПользователяИБ 	= ПользовательИБ.УникальныйИдентификатор;
		НовыйПользователь.Код 							= ФИОСоздаваемогоПользователя;
		НовыйПользователь.Наименование 					= ФИОСоздаваемогоПользователя;
		НовыйПользователь.Родитель						= ПользовательНастроек.Родитель;
		
		НовыйПользователь.Подразделение					= ПользовательНастроек.Подразделение;
		НовыйПользователь.Категория						= ПользовательНастроек.Категория;
		НовыйПользователь.Руководитель					= ПользовательНастроек.Руководитель;
		НовыйПользователь.Действует						= ПользовательНастроек.Действует;
		НовыйПользователь.Записать();
		
		
		НаборПользователя = РегистрыСведений.НастройкиПользователей.СоздатьНаборЗаписей();
		НаборПользователя.Отбор.Пользователь.Установить(ПользовательНастроек);
		НаборПользователя.Прочитать();
		
		НаборНовогоПользователя = РегистрыСведений.НастройкиПользователей.СоздатьНаборЗаписей();
		НаборНовогоПользователя.Отбор.Пользователь.Установить(НовыйПользователь.Ссылка);
		
		
		Для Каждого СтрокаНастроек из НаборПользователя Цикл
			НоваяСтрокаНастроек = НаборНовогоПользователя.Добавить();
			ЗаполнитьЗначенияСвойств(НоваяСтрокаНастроек,СтрокаНастроек);
			НоваяСтрокаНастроек.Пользователь = НовыйПользователь.Ссылка;
			Если Найти(СтрокаНастроек.Настройка.Наименование,"Основной ответственный") Тогда
				НоваяСтрокаНастроек.Значение = НовыйПользователь.Ссылка;
			КонецЕсли;	
		КонецЦикла;	
		
		Если НаборНовогоПользователя.Количество()>0 Тогда
			НаборНовогоПользователя.Записать();
		КонецЕсли;	
		сообщить("Создан пользователь "+ФИОСоздаваемогоПользователя);
		
		Запрос = Новый Запрос;
		Запрос.Текст = 
		"ВЫБРАТЬ
		|	ГруппыПользователейПользователиГруппы.Ссылка
		|ИЗ
		|	Справочник.ГруппыПользователей.ПользователиГруппы КАК ГруппыПользователейПользователиГруппы
		|ГДЕ
		|	ГруппыПользователейПользователиГруппы.Пользователь =Пользователь
		|
		|СГРУППИРОВАТЬ ПО
		|	ГруппыПользователейПользователиГруппы.Ссылка";
		
		Запрос.УстановитьПараметр("Пользователь", ПользовательНастроек);
		
		РезультатЗапроса = Запрос.Выполнить();
		
		ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
		
		Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
			объ = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();
			НоваяСтрока = объ.ПользователиГруппы.Добавить();
			НоваяСтрока.Пользователь = НовыйПользователь.Ссылка;
			объ.Записать();
		КонецЦикла;
		
	Иначе
		сообщить("Указанное ФИО Пользователя уже используется !!! ");
	КонецЕсли;
	
	
КонецПроцедуры   

 Функция ДобавитьПользователя(ИмяПользователя, ДоменноеИмя, ПользовательАктивен, АутентификацияОС, Авторизация1СПредприятия, МассивРолей) Экспорт

    // Попробуем найти сотрудника

    Пользователь = ПользователиИнформационнойБазы.НайтиПоИмени(ИмяПользователя);





    // Теперь попробум найти сотрудника по пользователю ос

   Если Пользователь = Неопределено Тогда

        Для Каждого ТекущийПользователь Из ПользователиИнформационнойБазы.ПолучитьПользователей() Цикл

            Если ТекущийПользователь.ПользовательОС = ДоменноеИмя Тогда

                Пользователь = ТекущийПользователь;

                Прервать;

            Конецесли;

        КонецЦикла;

    КонецЕсли;

    //                            





    // Если мы не нашли сотрудника, то создадим его

    Если Пользователь = Неопределено Тогда

        Пользователь = ПользователиИнформационнойБазы.СоздатьПользователя();

    КонецЕсли;

    //





    // Записываем свойства

    Пользователь.АутентификацияОС = АутентификацияОС;

    Пользователь.АутентификацияСтандартная = Авторизация1СПредприятия;

    Пользователь.ЗапрещеноИзменятьПароль = Истина;

    Пользователь.Имя = ИмяПользователя;

    Пользователь.ПолноеИмя = ИмяПользователя;

    Пользователь.ПоказыватьВСпискеВыбора = Ложь;

    Пользователь.ПользовательОС = ДоменноеИмя;

    

    // Сначала очистим все текущие роли

    Пользователь.Роли.Очистить();

    

    //  Теперь найдем переданный массив ролей в справочнике профилей 

    // и добавим все роли указанные в профиле. Все очень сложно, да

    МассивИменРолей = Новый Массив();

    Для Каждого Роль Из МассивРолей.Role Цикл

        МассивИменРолей.Добавить(Роль);    

    КонецЦикла;

    ТекстЗапроса = "ВЫБРАТЬ

                   |    ПрофилиГруппДоступаРоли.Роль.Имя КАК Имя

                   |ИЗ

                   |    Справочник.ПрофилиГруппДоступа.Роли КАК ПрофилиГруппДоступаРоли

                   |ГДЕ

                   |    ПрофилиГруппДоступаРоли.Ссылка.Наименование В(&МассивИменРолей)";

    Запрос = Новый Запрос(ТекстЗапроса);

    Запрос.УстановитьПараметр("МассивИменРолей", МассивИменРолей);

    Результат = Запрос.Выполнить().Выгрузить();    

    Для Каждого Роль Из Результат Цикл

        НайденнаяРоль = Метаданные.Роли.Найти(Роль.Имя);

        Если НайденнаяРоль <> Неопределено Тогда

            Пользователь.Роли.Добавить(НайденнаяРоль);

        КонецЕсли;

    КонецЦикла;



    // Записываем!

    Пользователь.Записать();



    // Теперь посмотрим нужно ли деактивировать пользователя

    Если Не ПользовательАктивен Тогда

        ДективироватьПользователя(Пользователь);    

    КонецЕсли;



    // Запишем еще и справочник пользователя

    ЗаполнитьСправочникПользователя(Пользователь);

  

    Возврат Истина;

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





// Процедура заполняет помимо прочего справочник пользователя

Процедура ЗаполнитьСправочникПользователя(ПользовательИБ) Экспорт

    ТекстЗапроса = "ВЫБРАТЬ

                   |    ИСТИНА КАК ЕстьПользователь,

                   |    Пользователи.Ссылка КАК Пользователь

                   |ИЗ

                   |    Справочник.Пользователи КАК Пользователи

                   |ГДЕ

                   |    Пользователи.ИдентификаторПользователяИБ =ИдентификаторПользователяИБ

                   |

                   |ОБЪЕДИНИТЬ ВСЕ

                   |

                   |ВЫБРАТЬ

                   |    ЛОЖЬ,

                   |    NULL";

    Запрос = Новый Запрос(ТекстЗапроса);

    Запрос.УстановитьПараметр("ИдентификаторПользователяИБ", ПользовательИБ.УникальныйИдентификатор);

    Результат = Запрос.Выполнить().Выгрузить()[0];

    ОписаниеПользователя = Пользователи.НовоеОписаниеПользователяИБ();

    Если Результат.ЕстьПользователь Тогда

        ПользовательОбъект = Результат.Пользователь.ПолучитьОбъект();

    Иначе            

        ПользовательОбъект = Справочники.Пользователи.СоздатьЭлемент(); 

        ПользовательОбъект.ИдентификаторПользователяИБ = ПользовательИБ.УникальныйИдентификатор;

        ПользовательОбъект.Наименование = ПользовательИБ.Имя;

        ОписаниеПользователя.Вставить("Действие", "Записать");

        ПользовательОбъект.ДополнительныеСвойства.Вставить("ОписаниеПользователяИБ", ОписаниеПользователя);

    КонецЕсли;

    ЗаполнитьЗначенияСвойств(ОписаниеПользователя, ПользовательИБ);

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

        ПользовательОбъект.ДополнительныеСвойства.Вставить(Элемент.Ключ, Элемент.Значение);        

    КонецЦикла;        

    ПользовательОбъект.ДополнительныеСвойства.Удалить("Роли");

    ПользовательОбъект.Записать();

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

 
// "ПутьКФайлу" - строка. Полное имя файла в формате 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Объект(ПутьКФайлу);
        Объект = Получить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();
        Объект = Неопределено;
    КонецПопытки;

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

  ОтражениеВУчете.Очистить(); // ОтражениеВУчете - название табличного поля    

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

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

 Для каждого Запись из ТабличнойЧасти Цикл
Если Запись.НадоУдалить Тогда
 ТабличнойЧасти.Удалить(Запись);
КонецЕсли;
КонецЦикла;   

    КолВо = Объект.ТабличнойЧасти.Количество()-1;
    ИндексСтроки = КолВо;
    Для счетчик = 0 по КолВо Цикл
        Запись = Объект.ТабличнойЧасти.Получить(ИндексСтроки);
        если Запись.НадоУдалить тогда
                Объект.ТабличнойЧасти.Удалить(Запись);
            КонецЕсли;
        ИндексСтроки = ИндексСтроки - 1;
    КонецЦикла;   

  //Вывод в окно сообщений
ОчиститьОкноСообщений(); //Очистим окно сообщений
Состояние("Вывожу информацию!");    
Сообщить("ИНФОРМАЦИЯ О ПРОГРАММЕ И ПОЛЬЗОВАТЕЛЕ!","I");
Сообщить("Имя Компьтера - " + ИмяКомпьютера());
Сообщить("Имя пользователя - " + ИмяПользователя());
Сообщить("Полное имя пользователя - " + ПолноеИмяПользователя());
Сообщить("Права пользователя - " + НазваниеНабораПрав());
Сообщить("Название интерфейса - " + НазваниеИнтерфейса());
если Монопольныйрежим()=1 тогда моноп="Монопольный режим" 
иначе моноп="НЕ монопольный режим"
	Конецесли;
сообщить(моноп);
Сообщить("Каталог пользователя - " + КаталогПользователя());
Сообщить("Каталог ИБ - " + КаталогИБ());
Сообщить("Каталог Программы - " + КаталогПрограммы());
Сообщить("Каталог Временных Файлов" + КаталогВременныхФайлов());