Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 173048
08.10.2009, 11:31
25.00 руб.
0 13 0
ДРУГОЕ / РАЗНОЕ
Добрый день!

Подскажите пожалуйста алгоритм переноса картинки из 1с 8.1 в ms word. т.е есть процедура выгрузки в word текста но в этот же макет нужно вставить картинку. Картинка лежит на диске в формате .jpg (каждый раз это разная картинка, но как указать путь к ней я знаю). т.е интересует больше алгоритм, а как его применить к конкретной процедуре уже дело третье. Если что то непонятно с удовольствием поясню в мини-форуме! Заранее спасибо! )

Приложение:
1с 8.1, ворд 2003 и 2007.

Обсуждение

Неизвестный
08.10.2009, 12:11
общий
Serega_artem:
Я в таких случаях запускаю в Ворде запись макроса, вручную делаю требуемые действия, а потом смотрю, что Ворд наваял...
Получилось:
Код:
Sub макрос1()

    ActiveDocument.InlineShapes.AddPicture FileName:="C:\test.bmp", _
        LinkToFile:=False, SaveWithDocument:=True
End Sub


Значит в 1с где-то вот так:
Код:

//...... Когда уже подключились к ворду через оле 
Док = Ворд.ActiveDocument;
Док.InlineShapes.AddPicture("C:\test.bmp", -1, 1);


Извините, красиво оформлять нет времени, поэтому, собственно не ответ а сообщение в форум.
Надеюсь идея ясна и поможет
Неизвестный
08.10.2009, 14:30
общий
Спасибо! Ваш метод работает, но есть пару "но".... Картинка вставляется хаотично, как можно сделать так чтобы она вставлялась в определенную (заранее указанную) часть макета. И можно ли как то контролировать размер фото?
Неизвестный
08.10.2009, 14:49
общий
Serega_artem:
Указать место знаю как
Код:

Док = Ворд.ActiveDocument;
Док.Range(5).InlineShapes.AddPicture("C:\test.bmp", -1, 1);

Вставит рисунок после 5-го символа в тексте

Как контролировать размер - не знаю
Неизвестный
08.10.2009, 14:58
общий
Вставит рисунок после 5-го символа в тексте


У меня таблица, можно как то указать конкретную ячейку?
Неизвестный
08.10.2009, 21:42
общий
Serega_artem:
IMHO надо экспериментировать с параметром Range(x) меняя x мне думается можно попасть в таблицу (хотя я сам не пробывал) (так, в качестве совета для "попробывать")
Неизвестный
09.10.2009, 07:59
общий
Спасибо большое! Будем думать! Странно, что все остальные эксперты молчат, неужели никто не сталкивался с подобным? )
Неизвестный
09.10.2009, 14:00
общий
Цитата: 17555
неужели никто не сталкивался с подобным?
Нет, не сталкивался. Есть у меня книжка по программированию 1С8 и связке оной с Microsoft Excel & Word, но такого не нашел...
Неизвестный
09.10.2009, 14:03
общий
Serega_artem:
Может, сделать массовую рассылку и привлечь к Вашему вопросу других экспертов? (например, как это было при составлении описания)
Неизвестный
10.10.2009, 21:33
общий
Нет, не сталкивался. Есть у меня книжка по программированию 1С8 и связке оной с Microsoft Excel & Word, но такого не нашел...


Да чего-то заказчики загнули! ) Самое интересное ,что в инете я находил, что все это вполне возможно, новезде разговор вокруг да около, конкретной инфы нет....

Может, сделать массовую рассылку и привлечь к Вашему вопросу других экспертов? (например, как это было при составлении описания)


Если честно, несовсем понял о чем Вы, можно чуть подробнее? Разве вопрос не рассылается между экспертами в момент подачи?

Неизвестный
16.10.2009, 10:11
общий
Serega_artem:
Здравствуйте!
Извиняюсть.. Вот только вернулся из командировки. Я имел в виду привлечь дополнительное внимание экспертов.
Неизвестный
16.10.2009, 10:42
общий
Спасибо Владимир! ) Но проблема уже как бы решена. Хотя как тоже решена, с помощью метода предложенного Piter - Док.Range(5).InlineShapes.AddPicture(); методом научного тыка и подгонки задаем нужное место. А касаем изменения размера, странно там все как-то, ворд изменяет размер фото, но по какой-то своей логике - фотка то подгоняется под ячейку, то не подгоняется Еще раз всем спасибо за помощь, жаль никто не ответил, все в минифоруме даже и пятерку поставить невозможно! )
Неизвестный
16.10.2009, 13:26
общий
Serega_artem:
Вообще, если честно вопрос уже больше относится к VBA, чем к 1С.
Может кто поможет на форумах по VB/VBA, напимер на этом сайте Программирование - Basic/VBA
А уже потом "переложить" на 1с. :-)
Неизвестный
22.10.2009, 11:17
общий
Спасибо Piter будем пробывать пробовать и этот вариант! )
Форма ответа