Macro to Copy from Excel to Word

I need some help please!

I am trying to add an 'export to word' function within my excel worksheet using a macro. See below.

Please Login or Register  to view this content.

Works great, except that that the resulting end picture pasted into Word is reduced in size such that it makes it hard to view (unless you increase to 200%+) and certainly not workable for printing. What I therefore want the macro to do instead is copy the first part of the range to a page 1 of the Word doc and the second range of cells to a page 2. I then want the macro to resize the page set up (top/bottom & left/right borders) and increase the scale of the pictures.

Here's the detail:

- Copy cell range (D2:Q34) from excel file and paste to new doc in Word
- Resize page set up so Top & Bottom = 0.5, and Left & Right = 1.5
- Increase scale of picture 1 from 63% to 77% Height & Width
- Move to end of doc, add a page break and then a blank row (as if return was pressed)
- Copy cell range (D35:Q69) from the excel file and paste onto PAGE 2 of the Word doc below the blank row
- Increase scale of picture 2 from 63% to 77% Height & Width

I'm sure this must be possible to do within the Excel macro by adding further code to that above but am struggling to advance this.

Can anyone help?

Many thanks in advance, beam

Beam_me_up Scotty,

This may help:
http://www.exceltip.com/st/Copy_work...Excel/481.html


Have a great day,
Stan

Thanks Stan, I'm good but not that good I'm afraid . It's changing the borders of the word doc, inserting a blank row and resizing of the pic objects I need help with. Can you give me a clue of VB code to do this please? Cheers!