Процедура ПечатьПриказа() СтатусВозврата(0); ИмяШаблонДок=КаталогИБ()+"ExtForms\Шаблоны\Сверхурочка.doc"; Word =СоздатьОбъект("Word.Application"); Докум =Word.Documents.Add(ИмяШаблонДок); Word =Докум; Докум =Word.Application.Documents(1); Докум.Activate(); Докум.Content.Copy(); ВыбратьСтроки(); сч=1; таблица = Word.Tables(1); Пока ПолучитьСтроку() = 1 Цикл Замена=Word.Content.Find; Замена.Execute("<Основание>",0,1,0,,,1,,0,Строка(Основание)); //1 Замена=Word.Content.Find; Замена.Execute("<Пункт3Должность>",0,1,0,,,1,,0,Строка(ПадежП(Пункт3.Должность.Получить(ДатаДок),3))); //1 Замена=Word.Content.Find; Замена.Execute("<Пункт3ФИО>",0,1,0,,,1,,0,Строка(глФамилияИмяОтчество(Пункт3.Наименование))); //1 Замена=Word.Content.Find; Замена.Execute("<Пункт4Должность>",0,1,0,,,1,,0,Строка(ПадежП(Пункт4.Должность.Получить(ДатаДок),2))); //1 Замена=Word.Content.Find; Замена.Execute("<Пункт4ФИО>",0,1,0,,,1,,0,Строка(глФамилияИмяОтчество(Пункт4.Наименование))); //1 Замена=Word.Content.Find; Замена.Execute("<ИсполнительДолжность>",0,1,0,,,1,,0,Строка(Исполнитель.Должность.Получить(ДатаДок))); //1 Замена=Word.Content.Find; Замена.Execute("<ИсполнительФИО>",0,1,0,,,1,,0,Строка(Исполнитель.Наименование)); //1 Замена=Word.Content.Find; Замена.Execute("<Директор>",0,1,0,,,1,,0,Строка(Константа.Руководитель.Получить(ДатаДок).Должность.Получить(ДатаДок))); //1 Замена=Word.Content.Find; Замена.Execute("<ДиректорФИО>",0,1,0,,,1,,0,Строка(глФамилияИмяОтчество(Константа.Руководитель.Получить(ДатаДок)))); //1 Если сч =1 Тогда СтрокаТаблицы = таблица.Rows(2); Иначе СтрокаТаблицы = таблица.Rows.Add(); КонецЕсли; СтрокаТаблицы.Cells(1).Range.Text = Сч; СтрокаТаблицы.Cells(2).Range.Text = Сотрудник.Наименование; СтрокаТаблицы.Cells(3).Range.Text = "" + Сотрудник.Должность.Получить(ДатаДок); СтрокаТаблицы.Cells(4).Range.Text = Сотрудник.Код; СтрокаТаблицы.Cells(5).Range.Text = СтрокаПервыхЧасов + СтрокаОстальныхЧасов; сч = сч + 1; КонецЦикла; Word.Application.Visible = 1; Word.Activate(); Предупреждение("Печатная форма сформирована."+РазделительСтрок+"Перейдите в окно WORD",5); КонецПроцедуры