|
Вставка картинки в 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) а не взлетит
|
|