Thanks for the help so far Michel, but the .InsertBreak command does not seem
to be working in this particular application. I've also tried to send
command keys (Ctrl + Enter) to Word in order to insert a page break but since
I'm working from Excel, the macro does not want to accept that I'd want to
send those key combinations to the Word application even though defined. Are
there any other alternatives out there that I can try? This may just be a
lost cause.

"michelxld" wrote:


Hello

this macro copy excel tables ( named Tableau1 , Tableau2 ...) in a new
Word document , and insert page break between each table


Sub EnvoyerTableauxExcelVersWord()
'activate Microsoft Word xx.x Object Library
Dim AppWord As Word.Application
Dim i As Byte

Set AppWord = New Word.Application
AppWord.Visible = True
AppWord.Documents.Add

For i = 1 To 4 'table number
'each table is named "Tableau1" , "Tableau2" ....

Range("Tableau" & i).Copy

With AppWord.Selection
.Paste
.InsertBreak Type:=wdSectionBreakNextPage 'page break
End With

Next i

Application.CutCopyMode = False
End Sub


Regards
michel


--
michelxld
------------------------------------------------------------------------
michelxld's Profile: http://www.excelforum.com/member.php...o&userid=17367
View this thread: http://www.excelforum.com/showthread...hreadid=389879