нужна помощь в создании макроса в Ворде

[sash29]

нужна помощь в создании макроса в Ворде

собсно задача представляется в следующем виде - что нужно:
есть текст, его вставляем в обычный вордовский документ, далее в ворде
Формат->Фон ->Подложка-> вставляем на задний план любой рисунок(это будет подложка).
далее делаем копию экрана и получается текст с подложкой(это нужно!!!) но остается ненужное в томже принтскрине вид окна и т.д.(думаю вы меня поняли) А НУЖНО чтобы осталось ТОЛЬКО страница с текстом и подложкой
СМЫСЛ всего этого чуда - чтоб в результате был ТОЛЬКО лист с текстом и картинкой на заднем фоне(т.е. НЕ в текстовом формате!!!!! а в графическом - .BMP\.Jpeg\Gif!!!!! и т.д.).
===============
ПРЕКРАСНО ПОНИМАЮ что элементарно сделать принт скрин и потом изображение перенести в .......... кучу разных програм(наиболее простейший - встроенный Paint) и в нем вырезать нужное.....
но в том то и дело - что такой работы много и поэтому по 300 раз не хотелосьбы делать однообразную работу.
===================
на данный момент сделал макрос в ворде который автоматически вставляет в новый документ подложку.
Сервис->Макрос->Начать Запись.(ну и делаю макрос по созданию подложки) - но теперь нужно сделать принтскрин(а макрос этого не делает!!!!!!) и последнее - ОТДЕЛИТЬ готовое изображение от ненужных разных вордовских линеек и т.д.
НО КАК ВСЕ ЭТО АВТОМАТИЗИРОВАТЬ ЧТОБ при нажатии на макрос в результате был один готовый графический файл????
мож кто сталкивался с таким? если не трудно - подскажите.

 

[maxshevtsov]

Using SendKeys



Sub PrintScreen()
WordBasic.SendKeys "{1068}"
End Sub

(For some strange reason, SendKeys "{1068}" does not work).

The above code works internationally, but if you don't mind your code being language-specific, then for English versions of Word you can use:.

Sub PrintScreen()
WordBasic.SendKeys "{prtsc}"
End Sub

for German versions of Word you can use:

Sub PrintScreen()
WordBasic.SendKeys "{druck}"
End Sub

 

[sash29]

конечно же спасибо за предыдущий пост, ток ничего не понял.

 

[Capricorn]

никак.

и вообще PDF вам в помощь

 

[maxshevtsov]

но теперь нужно сделать принтскрин(а макрос этого не делает!!!!!!)
открыть макрос и дописать на VBA один из способов сделданья принтскрина, это предыдущийпост.