Quote Originally Posted by fumei
I am not going to show you how to do that (change the header), because you did not ask for that.
I thought I mentioned before that I needed to keep the header of the inserted document (blank), but perhaps I am wrong. You are right, you don't have to show it to me how it's done because I wasn't specific about what I need and even though there were some indications, those probably weren't precise enough, so I understand you completely.

[VBA]

Selection.InsertBreak Type:=wdSectionBreakNextPage
Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8", FileName _
:= _
"C:\documents\document1.doc" _
, LinkToFile:=True, DisplayAsIcon:=False[/VBA]

This is what very loosely gets the job done, though it does not scroll down the document to the last paragraph of it's last page automatically.

I tried your VBA code and it says: "Compile error. Invalid or unqualified reference".