хуй

antipodarok


Антиподарок

аренда подъемников


Previous Entry Share Next Entry
1C Картинку в колонтитул документа MS Word
хуй
antipodarok

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

Tags: ,

?

Log in