Вход | Регистрация

1С:Предприятие :: 1С:Предприятие 8 общая

Заменить картинку в Word

Заменить картинку в Word
Я
   Надмозг
 
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 и как-то устанавливать размеры. Или нужен какой-то метод, который найдет текущую картинку и заменит на новую.
 
 
   elCust
 
1 - 27.09.17 - 12:06
(0) Движение сферического коня в вакууме.
   Надмозг
 
2 - 27.09.17 - 12:13
(1) В каком смысле? Весь код, который работает, я выложил. Есть документ Word, в нем в колонтитулах картинка. Есть ссылка на другую картинку, эту картинку надо подставить вместо существующей. Конкретнее не описать уже.
   xaozai
 
3 - 27.09.17 - 12:34
(0) Включите запись макроса, проделайте вручную то, что хотите запрограммировать, посмотрите, что получилось, перенесите в 1С.

Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Тема не обновлялась длительное время, и была помечена как архивная. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует