Ringer
15.02.2019, 10:37
Как изменить Положение 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 раз.
с значения "В тексте" на значение "Перед текстом"?
Картинки были вставлены в макете 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 раз.