Доброго !

Вот, пытаюсь перетащить картинку !

       Word = Новый COMОбъект("Word.Application");    
       Word.Visible = ИСТИНА;
       Word.Documents.Open(Путь+"\"+ИмяДок);
   //ThisDocument.Shapes.AddPicture FileName:="C:\Picture.jpg", Left:=250, Top:=50
   //'ActiveDocument.Shapes.AddPicture FileName:="C:\Picture.jpg", Left:=250, Top:=50
   //ActiveDocument.Shapes(ActiveDocument.Shapes.Count) .Select
   //Selection.ShapeRange.Left = 250
   //Selection.ShapeRange.Top = 250
       ФИОДляКартинки = СокрЛП(ПодписалДок.Наименование);
       Если ТипЗнч(ПодписалДок)=Тип("СправочникСсылка.Руководители") Тогда
           ФИОДляКартинки = СокрЛП(ПодписалДок.Сотрудник.Наименование);
       КонецЕсли;                
       Пикчер = Word.Selection.InlineShapes.AddPicture(Константы.ЦентральноеХранилище.Получить()+"\Подписи\"+ОбщийМодуль4.Инициалы(ФИОДляКартинки, ИСТИНА, ИСТИНА, 8)+"JPG");
Word.ActiveDocument.Shapes.Item(Word.ActiveDocument.Shapes.count).Select;
Word.ActiveDocument.Shapes.Item(Word.ActiveDocument.Shapes.count).ZOrderPosition(5);

Управляет позицией рисунка ZOrder
Но как этой конструкцией управлять - не знаю :(
Присвоить значение равное 5 не получается, как правильно ??

А вабще, было б прикольно заставить 1С выводить на бланки.

Кто с ВБА-более-менее знаком ?
Как это правильно в 1С будет ?

попробую еще разок

Шаблоны никак не катят?

(4) на основе шаблонов будет. Но, не в этом случае. Здесь, заранее, не известно, кто подписывает документ, собственно, какую картинку вставить выбирается в реальном времени :)

а что не получается?
ошибка или нет результата?
как макрос сказал делать?

Вот пример макроса:

ThisDocument.Shapes.AddPicture FileName:="C:\Picture.jpg", Left:=250, Top:=50
АctiveDocument.Shapes.AddPicture FileName:="C:\Picture.jpg", Left:=250, Top:=50
ActiveDocument.Shapes(ActiveDocument.Shapes.Count) .Select
Selection.ShapeRange.Left = 250
Selection.ShapeRange.Top = 250
Word.ActiveDocument.Shapes.Item(Word.ActiveDocument.Shapes.count).ZOrderPosition(5);

Переделал для себя:

Word = Новый COMОбъект("Word.Application");    
Word.Visible = ИСТИНА;
Word.Documents.Open(Путь+"\"+ИмяДок);
ФИОДляКартинки = СокрЛП(ПодписалДок.Наименование);
Если ТипЗнч(ПодписалДок)=Тип("СправочникСсылка.Руководители") Тогда
    ФИОДляКартинки = СокрЛП(ПодписалДок.Сотрудник.Наименование);
КонецЕсли;                
Пикчер = Word.Selection.InlineShapes.AddPicture(Константы.ЦентральноеХранилище.Получить()+"\Подписи\"+ОбщийМодуль4.Инициалы(ФИОДляКартинки, ИСТИНА, ИСТИНА, 8)+"JPG");
Сел = Word.ActiveDocument.Shapes.Item(Word.ActiveDocument.Shapes.count).Select;
Сел.ZOrderPosition = 5;

Ругается на:
'ZOrderPosition' не является методом

Есть еще и так:

With WordDoc.Shapes(1)
       .Top = 200    'position verticale de l'image dans le document
       .Left = 150    'position horizontale de l'image dans le document
       .ZOrder msoBringInFrontOfText    'image au premier plan devant le texte
       '.ZOrder msoSendBehindText 'option pour image en arriere plan derriere le texte
End With

Скорее всего, msoSendBehindText - константа и равна 5. Описания не нашел

о_О

Word.ActiveDocument.Shapes.Item(Word.ActiveDocument.Shapes.count).ZOrderPosition(5);
Сел.ZOrderPosition(5);

(10) Если по первой строке тогда 'ZOrderPosition' не является методом
Если вместо ZOrderPosition поставить ZOrder тогда ошибки нет, но ничего не происходит

Сел = Word.ActiveDocument.Shapes.Item(Word.ActiveDocument.Shapes.count).Select;
ругается, что нет свойства Селект :(

Word.ActiveDocument.Shapes.Item(Word.ActiveDocument.Shapes.count).Select();

не надо путать методы Select() и свойства Count, хотя ехель обычно терпимо к этому относится

(1) Если я правильно понял, есть желание выводить данные отчета на готовый бланк. Я как-то делал вывод на форму MS Access данных справки 2НДФЛ из DBF файла "подложив" готовый бланк как объект Exel. А в нужных местах поверх расположил поля с данными.
Заодно попробовал "подложить" бланк как объект в таблицу 1С, насколько я помню, это получилось без проблем. А вот в Visuel FoxPro не получилось. Только как картинку удалось разместить, а это мне не понравилось. Пришлось использовать Access, хоть я его и не люблю.

Если делать так:
Сел = Word.ActiveDocument.Shapes(Word.ActiveDocument.Shapes.Count).Select();
Сел.ZOrderPosition(5)

Ругается:
Значение не является значением объектного типа (ZOrderPosition)

А если вот так:
Word.ActiveDocument.Shapes(Word.ActiveDocument.Shapes.Count).ZOrderPosition(5)
то вообще:
Ошибка при вызове метода контекста (ZOrderPosition): Неизвестная ошибка

в верхнем случае Сел=Неопределено, т.е. не позиционируется

Работает так:

Пикчер = Word.Selection.InlineShapes.AddPicture(Константы.ЦентральноеХранилище.Получить()+"\Подписи\"+ОбщийМодуль4.Инициалы(ФИОДляКартинки, ИСТИНА, ИСТИНА, 8)+"JPG");
Сел = Word.ActiveDocument.Shapes(Word.ActiveDocument.Shapes.Count).ZOrder(1);

// 1 - перед текстом
// 5 - за текстом.

Спасибо огромное !