Вствка изображение в word (обтекание текстом = в тексте)

[Alexey Khromov]

Доброе утро коллеги. Подскажите пожалуйста, как вставить изображение в Word через com объект, чтобы обтекание текстом было "в тексте". Сейчас все картинки ложатся друг на дурга.

Сейчас код выглядит так:

Код Выделить Развернуть

                Если ТипЗнч(СтруктураСДаннымиДляПФ.ФайлыФото) = Тип("Массив") Тогда
                   
                    Для каждого Фото Из СтруктураСДаннымиДляПФ.ФайлыФото Цикл
                       
                        ДанныеФайла = РаботаСФайламиКлиент.ДанныеФайла(Фото);
                        Изображение = Новый Картинка(ПолучитьИзВременногоХранилища(ДанныеФайла.СсылкаНаДвоичныеДанныеФайла));
                        ФайлНаДиске = Новый Файл(ПолучитьИмяВременногоФайла("jpg"));
                        Изображение.Записать(ФайлНаДиске.ПолноеИмя);
                       
                        Search = ДокументЗаполнение.Range().Find();
                        Search.Text = "КартинкаСМестаНарушения";
                        Search.MatchCase = 0;
                        Search.Execute();
                        ActiveDoc = Search.Parent.Application.ActiveDocument;
                        ILS = Search.Application.ActiveDocument.InlineShapes;
                        Если Search.Found = 1 Тогда
                            ДокументЗаполнение.Range().Select();
                            Картинка = Search.Parent.Range(Search.Parent.Start, Search.Parent.End).InlineShapes.AddPicture(ФайлНаДиске.ПолноеИмя, Ложь, Истина);
                            Шейп = Картинка.ConvertToShape();
                            //ZOrder = ?(ЗначениеЗаполнено(Стр.ZOrder),Стр.ZOrder,5);
                            //Шейп.ZOrder(ZOrder); //по умолчанию размещаем за текстом, параметр ZOrder = 5
                            // при необходимости, задаём параметры картинки
                            //Шейп.LockAspectRatio = True;
                            //Шейп.Height
                            //Шейп.Width
                            Search.Execute("КартинкаСМестаНарушения",,,,,,,,,"КартинкаСМестаНарушения",2);
                        КонецЕсли;