EmersonH.Com

Dim wrdApp As New Word.Application
Dim docNew As Word.Document
Set docNew = wrdApp.Documents.Add

Dim myRange As Range

'Insert a file
docNew.Range.InsertFile FileName:="C:\doc1.DOCX"

'Set the cursor at the end of file
Set myRange = docNew.Paragraphs(docNew.Paragraphs.Count).Range
'Insert Page break
myRange.InsertBreak Type:=wdPageBreak
'Insert second file
myRange.InsertFile "C:\doc2.DOCX"


'save the document
docNew.SaveAs "C:\NewFile.docX"

wrdApp.Quit

Set docNew = Nothing
Set wrdApp = Nothing