Переменные в ворде

  &НаКлиенте 
Процедура ПолучитьДополнительноеСоглашение()  
	
	
	 ДвоичныеДанныеМакета = ПолучитьМакетНаСервере("ДС");
	 ИмяВрем = ПолучитьИмяВременногоФайла(".docx");
	 ДвоичныеДанныеМакета.Записать(ИмяВрем);
	 
	 Сотрудники = ПолучитьДополнительноеСоглашениеСервер();
	
	 Попытка
		 ОбъектВорд = Новый COMОбъект("Word.Application");  
		 ДокументВорд = ОбъектВорд.Documents.add(ИмяВрем);
		 ДокументВорд.ActiveWindow.View.ShowFieldCodes = False;
		 ДокументВорд.Application.Visible = Истина;
		 ДокументВорд.Application.WindowState = 2;
		 ДокументВорд.Application.WindowState = 1;
		 ДокументВорд.Activate();   
		 
		 ДокументВорд.Content.Copy();
		 ЭтоПервыйЛист = Истина;
		 
		 Для каждого Сотрудник из Сотрудники Цикл 
			 
			 Если ЭтоПервыйЛист = Ложь Тогда
				 ОбластьДокумента = ДокументВорд.Content;
				 ОбластьДокумента.Collapse(0);
				 ОбластьДокумента.InsertBreak(7);
				 ОбластьДокумента.Paste();
			 Иначе 
				 ЭтоПервыйЛист = Ложь
			 КонецЕсли;
			 
			 ДокументВорд.Variables("ДатаТД").Value = Сотрудник.ДатаТД;
			 ДокументВорд.Variables("НомерТД").Value = Сотрудник.НомерТД;
			 ДокументВорд.Variables("СотрудникФИОПолное").Value = Сотрудник.СотрудникФИОПолное;  
			 ДокументВорд.Variables("ОкладСумма").Value = Сотрудник.ОкладСумма;
			 ДокументВорд.Variables("ОкладПрописью").Value = Сотрудник.ОкладПрописью;
			 ДокументВорд.Variables("КачествоСуммаЦифрами").Value = Сотрудник.КачествоСуммаЦифрами;
			 ДокументВорд.Variables("КачествоСуммаПрописью").Value = Сотрудник.КачествоСуммаПрописью;
			 ДокументВорд.Variables("ИнтенсивностьСуммаЦифрами").Value = Сотрудник.ИнтенсивностьСуммаЦифрами;
			 ДокументВорд.Variables("ИнтенсивностьСуммаПрописью").Value = Сотрудник.ИнтенсивностьСуммаПрописью;
			 ДокументВорд.Variables("ДокументСерия").Value = Сотрудник.ДокументСерия ;
			 ДокументВорд.Variables("ДокументНомер").Value = Сотрудник.ДокументНомер ;
			 ДокументВорд.Variables("ДатаДок").Value = Формат(Сотрудник.ДокументДатаВыдачи, "ДФ='dd.MM.yyyy ""г.""'");
			 ДокументВорд.Variables("КемВыдан").Value = Сотрудник.ДокументКемВыдан ; 
			 ДокументВорд.Fields.Update(); 
			 
		 КонецЦикла;
		 
		 
		 
	 Исключение
		 ДокументВорд.Application.Quit();
		 Сообщить(ОписаниеОшибки());
		 ДокументВорд = Неопределено;
	 КонецПопытки;
	 

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