Save pictures of Excel cells into a Word document - excel

Question

My code pastes a picture of the cells.
It should then paste the other cells which don't fit on the first page.
The picture of the 'second page' does not paste.
Dim wdApp As Object
Dim wd As Object
Dim sFil As String
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then Set wdApp = CreateObject("Word.Application")
On Error GoTo 0
Set wd = wdApp.Documents.Add ' create a new document
wdApp.Visible = True
'change sheet and range below
ActiveSheet.Range("a1:z43").CopyPicture xlPrinter
wd.Range.Paste
wdApp.ActiveDocument.Range(0, 0).InsertBreak Type:=wdSectionBreakNextPage
wdApp.ActiveDocument.Sections (2)
ActiveSheet.Range("a43:z76").CopyPicture xlPicture
wd.Range.Paste
'wd.SaveAs Filename:="I:\'Files\RKG-COMMS\" & URNa & " - " & URNb & ".doc"
'wd.Close
'wd.Quit
Here is the result - only the first page
This is the second page which should be pasted

Answer 1

It's difficult for me to test what you're doing, but logically I believe the following should work, although there may be one problem (keep reading)...
Notice how this code uses a Word Range object as the target for new content. After pasting it's uncertain whether docRange will be before the pasted content, or contain the pasted content. If it contains the pasted content, the code should work. If it's before the pasted content, then next picture will come in before the first one. In that case, repeat the line Set docRange = wd.Content immediately after docRange.Paste.
Set wd = wdApp.Documents.Add ' create a new document
Dim docRange as Object 'Word.Range
Set docRange = wd.Content
wdApp.Visible = True
'change sheet and range below
ActiveSheet.Range("a1:z43").CopyPicture xlPrinter
docRange.Paste
'Go to the end
docRange.Collapse 0 'wdCollapseEnd
docRange.InsertBreak Type:=wdSectionBreakNextPage
ActiveSheet.Range("a43:z76").CopyPicture xlPicture
docRange.Paste
In response to an inquiry in comments about how the code works in detail:
Dim docRange as Object 'Word.Range
Declares an object variable to hold the part of the document the code works with. Because the code in the question, running from Excel, apparently uses late-binding (no reference to the Word object library) it's declared as an Object.
If early-binding were being used (the code project has a reference to the Word libraray) then declaring it As Word.Range would be preferable. I include the Word object data type (Word.Range) for the sake of completeness and to make it possible to research the object and its properties in the Help.
Set docRange = wd.Content
This instantiates the Word.Range object to contain the entire main body of the document (wd being instantiated in the code in the question to the target Word document).
After pasting, docRange still refers to the entire content of the document, including what was pasted. If the section break and second paste action were to be executed immediately, this would delete the content of the range. (Think of it like selecting text in Word, then typing: what was selected is replaced by what is typed. In order to avoid this, one presses the right arrow key before typing so that the new content follows what was selected.)
For this reason, the range is "collapsed" (like pressing the arrow key). Then the section break is inserted and the next paste action is executed.