Имя: Пароль:
1C
 
Как добавить картинку в документ?
0 Галахад
 
гуру
14.11.18
08:25
Хочу вставить в документ Word картинку.
Нагуглил вот такой код:

    Search = Word.ActiveDocument.Range().Find();
    
    Search.Text = ЗаменяемоеВыражение;
    Search.MatchCase = 0;
    Search.Execute();
    Если Search.Found = 1 Тогда
    
        Word.ActiveDocument.Range().Select();
        
        Картинка = Search.Parent.InlineShapes.AddPicture(ПутьКФайлуСКартинкой, Ложь, Истина);
        Шейп = Картинка.ConvertToShape();
        ZOrder = 5;
        Шейп.ZOrder(ZOrder);
        Шейп.Height = 100;
        Шейп.Width = 100;
        
        Search.Execute(ЗаменяемоеВыражение,,,,,,,,,ЗначениеЗамены,2);
        
    КонецЕсли;

Код рабочий. Но если уже спозиционирован на объекте.
Если нет, то падает по ошибке.
Ошибка при вызове метода контекста (ConvertToShape): Произошла исключительная ситуация (0x80004005)

Вопрос. Как спозиционироваться на нужном месте в вордовском документе. Ну или как еще можно вставлять картинки.
1 Zmich
 
14.11.18
08:37
2 Галахад
 
гуру
14.11.18
08:40
(1) Гм. Что такое ActiveTable?
3 Галахад
 
гуру
14.11.18
13:11
Переделал на закладки. Так работает:

    Word.ActiveDocument.Bookmarks(ТекЗакладка).Range.Select();
    Selection = Word.Selection;  
    TempImagePath = ПутьКФайлуСКартинкой;  
    НашаКартинка = Selection.InlineShapes.AddPicture(TempImagePath);
    НашаКартинка.Height = 100;  
    НашаКартинка.Width = 100;