Имя: Пароль:
1C
 
Вставка картинки в MS Word
, ,
0 volkVVV
 
16.10.15
14:00
Добрый день.
Очень нужна помощь.
Заполняю вордовский документ через, например
Объект.Variables("МоиЗначения").Value

вот теперь еще появилась задача вставить картинку в этот же документ.
никогда с таким не сталкивался, может кто нибудь помочь?

Спасибо заранее.
1 Горогуля
 
16.10.15
14:04
запись макроса обязательно может помочь
2 GRAF_84
 
16.10.15
14:13
используй AddPicture()
вот здесь есть описание
http://catalog.mista.ru/public/68072/
3 volkVVV
 
16.10.15
14:24
(2) а как в ворде обозначить, что я хочу туда вставить эту картинку, или даже правильнее сказать, как обозначить, куда именно вставить картинку?
4 volkVVV
 
16.10.15
14:27
забыл сказать, это макет (Active Document)
5 GRAF_84
 
16.10.15
14:38
Вот пример как установить картинку в ячейку таблицы:

COMОбъект = Новый COMОбъект("Word.Application");
COMОбъект.Documents.Open(ИмяФайла);

Word = COMОбъект.Application;
Word.Visible = 0;


Док=Word.Documents(1);
Док.Activate();

Таблица = Док.Tables.Item(1);

cellRange = Таблица.Cell(1, 1).Range;      //по этому адресу располагается ячейка для картинки

cellRange.InlineShapes.AddPicture(Параметры.ПутьКФото, False, True);
6 volkVVV
 
16.10.15
14:41
(5) а если это Макет? который уже заполнен, но еще не открыт?
Вот кусок кода.
***
Макет = ПолучитьМакет("МойДок");
Объект = Макет.Получить();

Объект.Variables("Поле1").Value = ?(НЕ ЗначениеЗаполнено(Поле1), " ", Поле1);

***
Объект.ActiveWindow.Visible = Истина;
Объект.Fields.Update();
7 volkVVV
 
16.10.15
15:21
(1) а какое поле использовать?
8 volkVVV
 
16.10.15
15:38
в ворде работает так: { INCLUDEPICTURE "D:\\3.jpg" },
вот как из 1С заполнить картинкой вместо "D:\\3.jpg" ?
9 volkVVV
 
16.10.15
15:46
Картинка = ВыборкаДляШапки.Квартира.ОсновноеИзображение.Хранилище.Получить();
Если ТипЗнч(Картинка) = Тип("Картинка") Тогда
        
Объект.Variables("МояКартина").Value = Картинка;
КонецЕсли;


в ворде прописал поле так: { INCLUDEPICTURE "МояКартина" }

но все равно не работает, есть ли какие то другие варианты? или в чем ошибка?
10 volkVVV
 
16.10.15
16:09
уже даже через двоичные данные попробовал, не хочет выводить

Картинка = ВыборкаДляШапки.Квартира.ОсновноеИзображение.Хранилище.Получить();
ДвоичнаяКартинка = Картинка.ПолучитьДвоичныеДанные();
            Объект.Variables("МояКартина").Value = ДвоичнаяКартинка;
11 Горогуля
 
16.10.15
16:11
Объект.Variables("МояКартина").Value="{ INCLUDEPICTURE ""D:\\3.jpg""}" не пробовал?
12 Горогуля
 
16.10.15
16:12
(11) а не взлетит
Есть два вида языков, одни постоянно ругают, а вторыми никто не пользуется.