Word макет, картинка в колонтитул

 &НаКлиенте
      

    Процедура Вариант1(Команда)
      

    MsWord = Новый COMОбъект("Word.Application");
      

    MsWord.Documents.Open("q:\test.doc"); 
      

    Попытка
      

    MsWord.Application.Visible = 0;
      

    Word = MsWord.Application;
      

    Док=Word.Documents(1);
      

    Док.Activate(); 
      

      

    ЗаменаКолонтитула=Док.sections.item(1).footers.item(1);
      

    //--Просто вставить строку 
      

    ЗаменаКолонтитула.Range.Text=СокрЛП("Привет");
      

    //--Вставить картинку 
      

    ЗаменаКолонтитула.Range.InlineShapes.AddPicture("q:\1.jpg", 
      

     False, //LinkToFile 
      

     True //SaveWithDocument 
      

     );
      

      

    Док.SaveAs("q:\test.doc");
      

    Док.Close(0);
      

    //ЗапуститьПриложение("""" + "q:\test.doc" + """");
      

      

    Исключение
      

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

    Word.Quit();
      

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

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

УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "НижнийКолонтитул", "НижнийКолонтитул");

Область = УправлениеПечатью.ОбластьМакета(Макет, Области[ИмяМакета]["НижнийКолонтитул"]);
			УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеОбъекта, Ложь);