Имя: Пароль:
1C
1С v8
Заменить картинку в Word
0 Надмозг
 
27.09.17
11:52
Как программно заменить существующую картинку в колонтитулах файла Word?

Написал код для вставки картинки. Не могу найти метод или алгоритм для замены

                ОбъектВорд = Новый COMОбъект("Word.Application");
        ОбъектВорд.Documents.add(Объект.ПутьКФайлу);
        
        ДокументВорд = ОбъектВорд.Application.Documents(1);
        
        ДокументВорд.Activate();
        
        ВерхнийКолонтитул = ДокументВорд.Sections(1).Headers;
        Shapes = ВерхнийКолонтитул.Item(1).Shapes;
        Shapes.AddPicture(Объект.ПутьККартинке);
        
        ОбъектВорд.Visible = Истина;

По идее, надо или сначала удалять текущую картинку, запоминая ее размеры, а потом вставлять новую через AddPicture и как-то устанавливать размеры. Или нужен какой-то метод, который найдет текущую картинку и заменит на новую.
1 elCust
 
27.09.17
12:06
(0) Движение сферического коня в вакууме.
2 Надмозг
 
27.09.17
12:13
(1) В каком смысле? Весь код, который работает, я выложил. Есть документ Word, в нем в колонтитулах картинка. Есть ссылка на другую картинку, эту картинку надо подставить вместо существующей. Конкретнее не описать уже.
3 xaozai
 
27.09.17
12:34
(0) Включите запись макроса, проделайте вручную то, что хотите запрограммировать, посмотрите, что получилось, перенесите в 1С.
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс