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

 |ВЫБРАТЬ * ИЗ Справочник.Номенклатура ПОМЕСТИТЬ В ВТТовары   

 Запрос=Новый Запрос("ВЫБРАТЬ * ИЗ Справочник.Номенклатура ПОМЕСТИТЬ В ВТТовары");
Запрос.Выполнить(); //Создалась таблица ВТТовары
ЗапросТМП=Новый Запрос("ВЫБРАТЬ * ИЗ ВТТовары");
ЗапросТМП.МенеджерВременныхТаблиц=Запрос.МенеджерВременныхТаблиц; //Копируем ссылку на временные таблицы
ТЗ=ЗапросТМП.Выполнить().Выгрузить(); //Получаем временную таблицу в таблице значений
Готовую таблицу значений из памяти можно выгружать в менеджер временных таблиц запроса. Единственное условие - колонки таблицы значений должны быть типизированными, т.е. иметь тип. Вот пример, демонстрирующий это:

ТЗ=Новый ТаблицаЗначений();
//Колонки должны быть типизированы
ТЗ.Колонки.Добавить("А", Новый ОписаниеТипов("Строка"));
ТЗ.Колонки.Добавить("Б", Новый ОписаниеТипов("Строка"));

//Заполняем таблицу данными
Стр=ТЗ.Добавить();
Стр.А="А";
Стр.Б="Б";
Стр=ТЗ.Добавить();
Стр.А="А1";
Стр.Б="Б1";

//Загружаем таблицу значений в менеджер временных таблиц запроса
Запрос=Новый Запрос("Выбрать Т.А, Т.Б ПОМЕСТИТЬ ВТТаб Из &Таб Как Т");
//Вариант: Запрос=Новый Запрос("Выбрать * ПОМЕСТИТЬ ВТТаб Из &Таб Как Т");
Запрос.МенеджерВременныхТаблиц=Новый МенеджерВременныхТаблиц;
Запрос.УстановитьПараметр("Таб",ТЗ);
Запрос.Выполнить();

//Получаем таблицу из менеджера временных таблиц запроса
ЗапросТМП=Новый Запрос("ВЫБРАТЬ * ИЗ ВТТаб");
ЗапросТМП.МенеджерВременныхТаблиц=Запрос.МенеджерВременныхТаблиц;
ТЗ1=ЗапросТМП.Выполнить().Выгрузить();
ТЗ1.ВыбратьСтроку(); //Показываем полученную таблицу   

 Процедура ТипизацияТЗ(ТЗ) Экспорт
РезультатТЗ = новый ТаблицаЗначений;
Для Каждого Колонка из ТЗ.Колонки Цикл
Имя = Колонка.Имя;
МассивТипов = новый Массив(1);
МассивТипов[0] = ТипЗнч(ТЗ[0][Имя]);
Описатель = новый ОписаниеТипов(МассивТипов);
РезультатТЗ.Колонки.Добавить(Имя, Описатель);
КонецЦикла;

Для каждого Строка из ТЗ Цикл
СтрокаРез = РезультатТЗ.Добавить();
ЗаполнитьЗначенияСвойств(СтрокаРез, Строка);
КонецЦикла;

ТЗ = РезультатТЗ.Скопировать();
КонецПроцедуры   

 ВЫБРАТЬ
                ВзаиморасчетыСРаботникамиОрганизаций.Период,
                ВзаиморасчетыСРаботникамиОрганизаций.Физлицо,
                ВзаиморасчетыСРаботникамиОрганизаций.СуммаВзаиморасчетов,
                ВзаиморасчетыСРаботникамиОрганизаций.Организация,
                ВзаиморасчетыСРаботникамиОрганизаций.ПериодВзаиморасчетов,
                ВзаиморасчетыСРаботникамиОрганизаций.Регистратор
ПОМЕСТИТЬ РегВзаимРасч
ИЗ
                РегистрНакопления.ВзаиморасчетыСРаботникамиОрганизаций КАК ВзаиморасчетыСРаботникамиОрганизаций
ГДЕ
                ВзаиморасчетыСРаботникамиОрганизаций.Период МЕЖДУ &ДатаН И &ДатаК
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
                ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо,
                ЗарплатаКВыплатеОрганизацийЗарплата.Сумма,
                ЗарплатаКВыплатеОрганизацийЗарплата.ВыплаченностьЗарплаты,
                ЗарплатаКВыплатеОрганизацийЗарплата.КомпенсацияЗаЗадержкуЗарплаты,
                ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка
ПОМЕСТИТЬ ДокумЗарплКВыпл
ИЗ
                Документ.ЗарплатаКВыплатеОрганизаций.Зарплата КАК ЗарплатаКВыплатеОрганизацийЗарплата
ГДЕ
                ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.Дата МЕЖДУ &ДатаН И &ДатаК
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
                РегВзаимРасч.Период,
                РегВзаимРасч.Физлицо,
                РегВзаимРасч.СуммаВзаиморасчетов,
                ДокумЗарплКВыпл.Сумма,
                ДокумЗарплКВыпл.ВыплаченностьЗарплаты,
                ДокумЗарплКВыпл.КомпенсацияЗаЗадержкуЗарплаты
ИЗ
                РегВзаимРасч КАК РегВзаимРасч
                               ВНУТРЕННЕЕ СОЕДИНЕНИЕ ДокумЗарплКВыпл КАК ДокумЗарплКВыпл
                               ПО РегВзаимРасч.Регистратор = ДокумЗарплКВыпл.Ссылка
                                               И РегВзаимРасч.Физлицо = ДокумЗарплКВыпл.Физлицо
;

////////////////////////////////////////////////////////////////////////////////
УНИЧТОЖИТЬ РегВзаимРасч
;

////////////////////////////////////////////////////////////////////////////////
УНИЧТОЖИТЬ ДокумЗарплКВыпл
   

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

 // Проверка орфоргафии переданного текста с помощью средств MS Word
// Параметры
//  <Текст> – <Строка> – проверяемый текст
//  <ДеревоЗначений> – <ДеревоЗначений> – возвращает дерево замен
// Возвращаемое значение:
//   <Булево> – Истина, если текст не содержит ошибок
Функция ПроверитьОрфографию(Текст, ДеревоЗначений = Null) Экспорт
    Попытка
		Ворд = Новый COMОбъект("Word.Application"); //Создаем объект MS Word
	Исключение
		Предупреждение("Microsoft Word не установлен!",,"Ошибка!");
		Возврат Ложь;
	КонецПопытки;

	ТекстБезОшибок = Ворд.CheckSpelling(Текст); //проверяем нашу строку на ошибки

	Если ТекстБезОшибок Тогда // Нет ошибок
		Возврат Истина;

	Иначе // Обнаружены ошибки, будем проверять по словам
        Если ДеревоЗначений <> Null Тогда
			Ворд_Активен = Ворд.Visible; //Запомним, был ли Word активен
			
			ВремДок = Ворд.Documents.Add(); //Добавляем к открытым документам
			МояОбласть = ВремДок.Range(0, 0); //Получаем пустую область в начале документа
			МояОбласть.I_nsertBefore(Текст); //Добавляем в эту область нашу строку
			ЧислоСлов = МояОбласть.Words.Count; //Подсчитываем число слов в области

			ДеревоЗначений = Новый ДеревоЗначений; //сюда будем записывать слова и варианты их замен
            МассивТипов = Новый Массив;
			МассивТипов.Добавить(Тип("Строка"));
			ОписаниеТипов = Новый ОписаниеТипов(МассивТипов);
			ДеревоЗначений.Колонки.Добавить("Слово", ОписаниеТипов, "Слово/Замена",);
			
			wdSpellword=0; //константа Word, указывающая на то, что при при вызове проверки орфографии возвращается множество замен
			wdDoNotSaveChanges=0; //константа Word, указывающая на то, что при закрытии не надо сохранять изменения в закрываемом документе
			
			Для НомерСлова = 1 По ЧислоСлов Цикл
	            ОбработкаПрерыванияПользователя();
				ПровОбласть = МояОбласть.Words(НомерСлова); //выбираем очередное слово
				ПровСлово = СокрЛП(ПровОбласть.Text);
				СловоБезОшибок = Ворд.CheckSpelling(ПровСлово); //проверяем наше слово на ошибки
				Если НЕ СловоБезОшибок Тогда //получаем варианты замен (их может и не быть!)
					Если ДеревоЗначений.Строки.Найти(ПровСлово, "Слово") = Неопределено Тогда
						НоваяСтрока = ДеревоЗначений.Строки.Добавить();
						НоваяСтрока.Слово = ПровСлово;
						
						Замены = ПровОбласть.GetSpellingSuggestions( ,1, ,wdSpellword); //проверяем орфографию, укзав, что возвращать надо множество замен
						ЧислоЗамен = Замены.Count; //получаем число возможных замен
						Если ЧислоЗамен > 0 Тогда //заносим варианты замен в таблицу значений
							Для НомерЗамены = 1 По ЧислоЗамен Цикл
								СловоЗамены = СокрЛП(Замены.Item(НомерЗамены).Name);
								НоваяПодСтрока = НоваяСтрока.Строки.Добавить();
								НоваяПодСтрока.Слово = СловоЗамены;
							КонецЦикла;
						КонецЕсли;	
					КонецЕсли; 
				КонецЕсли;	
			КонецЦикла;

			ВремДок.Close(wdDoNotSaveChanges,,);
			Если Не Ворд_Активен Тогда
				Ворд.Quit();
			КонецЕсли;
		КонецЕсли; 

		Возврат Ложь;
	КонецЕсли; 
КонецФункции    

 
  Перем ДеревоЗначений;
    Состояние("Идет проверка орфографии. Пожалуйста ждите...");
	Текст = ЭлементыФормы.ПолеТекстовогоДокумента.ПолучитьТекст(); // Получаем текст
    Если ПроверитьОрфографию(Текст, ДеревоЗначений) Тогда  // Проверяем орфографию
		Предупреждение("Текст ошибок не содержит!!!", 5, "OK");
	Иначе
		Если ДеревоЗначений.Строки.Количество() > 0 Тогда
			// Создаем и открываем форму автозамен...
			ФормаВыбора = ЭтотОбъект.ПолучитьФорму("ФормаВыбора");

			Для каждого СтрокаДЗ Из ДеревоЗначений.Строки Цикл
				Строка = ФормаВыбора.ДеревоЗначений.Строки.Добавить();
				Строка.Слово = СтрокаДЗ.Слово;

				Для каждого ПодСтрокаДЗ Из СтрокаДЗ.Строки Цикл
					ПодСтрока = Строка.Строки.Добавить();
					ПодСтрока.Слово = ПодСтрокаДЗ.Слово;
				КонецЦикла; 
			КонецЦикла; 

			Если ФормаВыбора.ОткрытьМодально() = "OK" Тогда
		        // Производим автозамены в тексте
				Для каждого СтрокаДЗ Из ФормаВыбора.ДеревоЗначений.Строки Цикл
					Для каждого ПодСтрокаДЗ Из СтрокаДЗ.Строки Цикл
						Если ПодСтрокаДЗ.Пометка Тогда
							Текст = СтрЗаменить(Текст, ПодСтрокаДЗ.Родитель.Слово, ПодСтрокаДЗ.Слово);
						КонецЕсли; 
					КонецЦикла; 
				КонецЦикла; 
             	ЭлементыФормы.ПолеТекстовогоДокумента.УстановитьТекст(Текст); //Вставим в поле исправленный текст
			КонецЕсли; 
		Иначе
			Предупреждение("В тексте найдены ошибки, но вариантов автозамены не нашлось!!!", 5, "Ошибка");
		КонецЕсли; 
	КонецЕсли;    

 //Выбор файла
Режим = РежимДиалогаВыбораФайла.Открытие; 
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим); 
ДиалогОткрытияФайла.ПолноеИмяФайла = ""; 
Фильтр = "Текст(*.txt)|*.txt"; 
ДиалогОткрытияФайла.Фильтр = Фильтр; 
ДиалогОткрытияФайла.МножественныйВыбор = Ложь; 
ДиалогОткрытияФайла.Заголовок = "Выберите файл для загрузки"; 
Если ДиалогОткрытияФайла.Выбрать() Тогда 
	ПутьКФайлу = ДиалогОткрытияФайла.ПолноеИмяФайла; 
КонецЕсли;	
//Выбор вида удержания пользователем
ВидУдерж=Неопределено;
МассивТипов = Новый Массив; 
МассивТипов.Добавить(Тип("ПланВидовРасчетаСсылка.УдержанияОрганизаций")); 
ОписаниеВозможныхТипов = Новый ОписаниеТипов(МассивТипов); 
Если ВвестиЗначение(ВидУдерж,"Выберите вид удержания", ОписаниеВозможныхТипов) Тогда
	Если Удержания.Количество()>0 тогда
		Предупреждение("Внимание! В таблице уже есть данные, новые данные Добавлены к существующим данным!");
	КонецЕсли;
	текдок=Новый ТекстовыйДокумент;
	текдок.Прочитать(ПутьКФайлу);
	Для Ном=1 по текдок.КоличествоСтрок() цикл
		Стр = текдок.ПолучитьСтроку(Ном);
		//Разложим строку в массив данных
		СтрМ=РазложитьСтрокуВМассивПодстрок(стр,"~");
		//Добавляем новую строку
		НовСтр=Удержания.Добавить();
		//Ищем Физика
		Физик = Справочники.ФизическиеЛица.НайтиПоКоду(СтрМ[0]);
		Если СокрЛП(Физик.Наименование) = СокрЛП(СтрМ[1]) тогда                                       
			НовСтр.Физлицо = Физик;
		Иначе 
			Сообщить("В справочнике Физ. Лиц не найден "+СтрМ[1],СтатусСообщения.ОченьВажное);
		КонецЕсли;
		НовСтр.ВидРасчета=ВидУдерж;
		НовСтр.ДатаНачала=РабочаяДата;
		НовСтр.ДатаОкончания=РабочаяДата;
		НовСтр.Показатель1=СтрМ[2];
		НовСтр.Результат=СтрМ[2];
	КонецЦикла;	
КонецЕсли;   

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

 МассивТипов = Новый Массив; 
МассивТипов.Добавить(Тип("СправочникСсылка.ФизЛица")); 

// Добавить другие типы.

ОписаниеВозможныхТипов = Новый ОписаниеТипов(МассивТипов); 

ПолученноеЗначение = Неопределено; 
ВвестиЗначение(ПолученноеЗначение, "Выберите значение:", ОписаниеВозможныхТипов);