ПРОДАЖА И ВНЕДРЕНИЕ 1С

по всей России

+7 (495) 223-32-11

Заказать обратный звонок

8 (800) 775-90-01

Бесплатно по России

Получить

Скорую 1С помощь

Получить

Проконсультироваться
со специалистом 1С

Консультироваться

Код 1C v 8.2 УП
 &НаКлиенте
      
Процедура Вариант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();
КонецПопытки;
КонецПроцедуры


Информация взята с сайта http://helpf.pro


Заказать обратный звонок

Позвонить
Отправлено! В самое ближайшее время наш менеджер свяжется с Вами.