Положение 10 картинок в документе Word (или макете)

[Ringer]

Как изменить Положение 10 картинок в документе Word (или макете)
с значения "В тексте" на значение "Перед текстом"?
Картинки были вставлены в макете Word. А когда пытаюсь изменить
положение (код ниже), то 1 картинка изменяется правильно, оставаясь на своем месте,
остальные же меняют положение, теряя вертикальное выравнивание,
то есть появляются в первой строке (но горизонтальную позицию сохраняют).

Picts = Документ.InlineShapes;
cntPict = Документ.InlineShapes.Count; //10 штук
Для Каждого p Из Picts Цикл
p.Select();
Если word.Application.Selection.Type = 7 тогда
Shape=p.ConvertToShape();
Shape.WrapFormat.Type = 3;// перед текстом...;
КонецЕсли;
КонецЦикла;

Решение одно нашел, но оно касячное для 1С, поскольку каждый раз приходится работать с одним объектом
Shape (не перебирая их в цикле), открывая и закрывая doc-файл (с картинками) 10 раз.

[Ringer]

Решение найдено. 1С оказался не причем, только особенности программирования на VBA.
Спасибо всем за помощь!

Тема закрыта.