Здравствуйте, как программно через com вставить в документ ворд картинку, что бы она была под текстом и в нужном месте. Вставляю картинку печати(факсимиле), хочу что бы сверху была черта для подписи и инициалы.

сейчас использую код:

```1c
    ИмяФайлаКартинки = ПолучитьИмяВременногоФайла();
    ДвоичныеДанные.Записать(ИмяФайлаКартинки);

    Замена = Word.ActiveDocument.Range().Find;
    Замена.ClearFormatting();
    Замена.Forward = Истина;
    Замена.Text = ИмяЭлементаШаблона;
    Замена.Execute();
    ComКартинка = Word.ActiveDocument.Range(Замена.Parent.Start,Замена.Parent.End).InlineShapes.AddPicture(ИмяФайлаКартинки);

    Shape = ComКартинка.ConvertToShape();
    Shape.WrapFormat.Type = 5;
```

Но как только присваиваю картинке тип = 5, она улетает на самый верх документа Word. Я понимаю, нужно правильно задать привязки для картинки, как это можно сделать?
---
Спасибо. в документе стоял режим ограниченной функциональности, для сохранения совместимости со старыми версиями. Отключил его и заработало как надо.
---
то что вы делаете - от лукавого.
и сомы и эктивы - это анахронизмы, от которых избавляются как от проказы.
---
есть что то лучше?
---
Запустил в Ворде в VBA Ваш код, ничего никуда не улетает, пару картинок попробовал.

```1c
    Sub Макрос1()

    Set mFind = ActiveDocument.Range().Find
    mFind.ClearFormatting
    mFind.Forward = True
    mFind.Text = "HereStamp"
    mFind.Execute
    'Set mInlineShape = ActiveDocument.Range(mFind.Parent.Start, mFind.Parent.End).InlineShapes.AddPicture("C:\Картинка1.PNG")
    Set mInlineShape = ActiveDocument.Range(mFind.Parent.Start, mFind.Parent.End).InlineShapes.AddPicture("c:\Картинка2.png")
    Set mShape = mInlineShape.ConvertToShape()
    mShape.WrapFormat.Type = 5

    End Sub
```
---
Возможно, поможет если текст поиска mFind.Text = "HereStamp" зафиксировать в ячейке таблицы...
---
Спасибо за советы. В таблице пробовал, все равно уходит вверх. Сейчас по вашему совету пересохранил в PNG тоже уходит вверх. Я даже если через Word руками вставляю картинку, как только выбираю Обтекание текста = За текстом , она сразу уходит с самого низа в самый верх документа. Приложил скриншот
---
Может Word глючный? Какая версия?
---
У меня 2010 и 2016 Ворд - обтекание никак не влияет на положение картинки. Либо с Вордом что-то не то, либо Документ у Вас какой-то специфический, из-за специфики документа Ворд такую фишку выдает.
---
Т.е. в документе искусственно вручную сделать таблицу из одной ячейки, с прозрачными границами, туда поместить текст поиска, который Замена.Text = ИмяЭлементаШаблона.
---
Или, возможно, результат mShape.WrapFormat.Type = 5 зависит от формата исходной картинки. Попробуйте вставить печать в формате PNG
---
Да спасибо, сейчас в тестовом документе сделал, все заработало. Буду разбираться с текущим шаблоном
---
Из личного опыта могу поделится следующим наблюдением:
Для того чтобы не происходило смещение изображения необходимо выбирать обтекание текстом - ПЕРЕД ТЕКСТОМ.
Но для этого потребуется сделать изображение прозрачным. Тут то как раз и необходим формат png
---
Возможно, это поможет в Вашем особенном шаблоне, который позицию наверх сбрасывает:

```1c
    Shape.WrapFormat.Type = 5;
    Shape.RelativeVerticalPosition = 2;
    Shape.Top = 0;
```
---
попробуйте с этими двумя изображениями
1 JPEG за текстом
---
2 png перед текстом
---
Спасибо. в документе стоял режим ограниченной функциональности, для сохранения совместимости со старыми версиями. Отключил его и заработало как надо.
---
А Вы можете свой ответ как найденное решение пометить, чтобы на будущее кто ищет подобное - сразу решение под вопросом видел?