|
Заменить картинку в 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С.
|
|