Имя: Пароль:
1C
1С v8
Word добавление картинки ConvertToShape()
0 alod
 
01.04.19
16:51
Всем привет.
Делаю печатную форму в ворде. Столкнулся в в этот раз с проблемой добавления картинок в колонтитулы, т.е. картинка то добавляется, а вот метод ConvertToShape() постоянно выдает ошибку.
Word = Новый COMОбъект("Word.Application");
WordDoc = Word.documents.add(ПутьКШаблону);
WordSections= WordDoc.sections(1).footers(2).Range;
//ищем место для вставки
WordSections.Find.ClearFormatting();
WordSections.Find.Text = "#МестоДляКартинки#";
WordSections.Find.Forward = 1;
WordSections.Find.Wrap = 1;
//вставляем
Картинка = WordSections.InlineShapes.AddPicture(ПутьККартинке,ложь,Истина);
картинка вставляется, но ее нужно разместить за текстом и при попытке конвертировать вываливается ошибка
"Ошибка при вызове метода контекста (ConvertToShape): Произошла исключительная ситуация (0x80004005)"

так
Шейп = Картинка.ConvertToShape();
или так
Шейп = WordSections.InlineShapes(1).ConvertToShape();
вываливает ошибку

Читал про подобную проблему  тут https://helpf.pro/help/view/13855.html
WordSections.InlineShapes(1).Select() не помогло