Уважаемые форумчане, подскажите пожалуйста.
Есть макрос для заполнения документа в формате Word данными из файла Excel.
В том числе на листе 1 в Excel расположена картинка с именем "Печать". Данная картинка копируется в буфер обмена:

    ActiveSheet.Shapes("Печать").Copy

И вставляется в документ Word

    wdDoc.Bookmarks.Item("Лого").Range.Paste

Нужно чтобы имя картинки не прописывалось руками в тексте макроса, а бралось из определенной ячейки (имена будут меняться).
Для этого объявляю переменную ShapeStamp типа string и присваиваю ей значение ячейки:

    ShapeStamp = Range("G2").Value

И меняю "Печать" на ShapeStamp

    ActiveSheet.Shapes(ShapeStamp).Copy

Но картинка не вставляется. Понимаю, что делаю не правильно, но знаний VBA не хватает.
Подскажите, пожалуйста, как правильно сделать

Уважаемые форумчане!
Заранее прошу прощения за тупой вопрос, но уже всю голову сломал.
Есть картинка на активном листе excel с именем присвоенным программой по умолчанию "Картинка_1", копирую ее и вставляю ее в документ word.

ВОПРОС, как изменить присвоенное автоматически имя самой картинки "Картинка_1" на другое?

Спасибо большое все получилось. Сделал так:

Единственное, возможно ли как-то прописать свойства картинки, чтобы она вставлялась по умолчанию "За текстом" (т.е. что-бы текст проходил по верх картинки, а то получается не красиво)

Прошу прощения, я наверное не правильно сформулировал свой вопрос. Я не прошу написать за меня макрос, а прошу подсказать, как скопировать из Excel в буфер обмена картинку и вставить ее а конкретное поле в Word.

Нет в excel не надо, только в шаблон Word. Сама картинка может браться или из папки или из другого места, не важно.

 Макрорекодером в Word я получаю макрос для Word,а мне нужен макрос для Excel.

Уважаемые форумчане, помогите пожалуйста!
Есть макрос по заполнению Word-овского шаблона данными из Excel.
Не могу решить проблему со вставкой картинки в этот шаблон.
Более конкретно: в файле Excel есть данные нескольких компаний. Запускаем в Excel макрос и в зависимости от значения в ячейке заполняется шаблон данными конкретной компании. Нужно еще, чтобы вставлялась подпись директора данной компании, т.е картинка. А вот с этим загвоздка.
Подскажите, пожалуйста, как решить данную задачу???

Здравствуйте, уважаемые форумчане!
Есть таблица в Excel состоящая из 3-х столбцов и 100 строк.
Во всех ячейках второго столбца стоят формулы, значения формул могут быть либо 0 либо текст.
Стоит задача перенести эту таблицу из excel в word при этом нулевые строки не должны переноситься.
Всю таблицу перенести не проблема:

   Range("A1:C100").Copy
   wdDoc.Bookmarks.Item("Bookmark").Range.Paste

А вот как сделать чтобы нулевые строки не переносились?

Все работает, ОГРОМНОЕ спасибо

Здравствуйте уважаемые форумчане!
Подскажите пожалуйста, как из excel открыть файл word и сохранить его в формате pdf ?
Собственно, как открыть файл word я разобрался, а вот как его дальше сохранить в pdf не знаю.